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PREFACE 


The  VRS  statistics  program  was  developed  by  the  Transportation  Systems  Center 
under  the  guidance  of  the  Federal  Aviation  Administration  sponsors,  C.  Weigel  and 
V.  Costantino.  The  preflight  weather  briefing  VRS  software  and  VRDATA.DAT  file  were 
developed  under  contract  by  Input  Output  Computer  Services  (IOCS),  Waltham  MA. 
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1.  INTRODUCTION 


An  automated  preflight  weather  briefing  voice  response  system  (VRS)  developed  by 
the  Transportation  Systams  Center1  Is  currently  undergoing  continuous  operational 
testing  and  evaluation  by  the  aviation  eomnunity  in  the  Washington  DC  and  Columbus  OH 
areas.  During  each  VRS  operating  day,  raw  statistical  data  Is  stored  in  a  file  named 
VRSATA.DAT.  This  file  is  the  basis  of  the  statistical  report.  A  description  of  the 
VRS  statistical  program  and  the  report  is  presented  in  the  following  sections. 


2.  VRS  STATISTICAL  REPORT  DESCRIPTION 


The  VRS  statistical  report  consists  of  3  parts:  the  header,  the  user  report, 
and  the  daily  summary.  Each  will  be  described  below. 


2.1  THE  HEADER 

The  header  page  is  always  printed  regardless  of  the  output  option  selected.  It 
contains  the  following  information: 

Minimum  Channel  Ho.  -  a  2  digit  number  between  00  and  20 
Maximum  Channel  No.  -  same  as  above. 

Start  Point  of  File: 

Start  Date  -  year,  month,  date  (YY  MM  DD) 

Block  No.  -  starting  data  block 

Byte  Offset  -  starting  data  byte  within  the  starting  block 
Time  -  minutes  since  midnight  (GMT) 

End  Point  of  File: 

Finish  Data  -  year,  month,  day  (YY  MM  DD) 

Block  No.  -  last  data  block 

Byte  No.  -  last  data  byte  within  the  last  data  block 
Time  -  minutes  since  midnight  (GMT) 


2.2  USER  REPORT 

The  User  Report  has  1  line  per  user.  There  are  18  columns,  divided  into  5  groups. 
The  first  group  has  1  column.  GMT  time.  This  is  the  time  of  the  user  channel  dis¬ 
connect  . 

Group  2  has  4  columns,  each  of  which  is  a  count  of  user  requests.  Column  LOC  is  a 
count  of  location  Identifiers  entered.  Column  SA  is  a  count  of  Hourly  Surface  Observa¬ 
tion  (SA)  reports  requested.  Column  FT  is  a  count  of  Terminal  Forecast  (FT)  reports 
reguested.  Column  GF  is  a  count  of  winds  alofts  (GF)  reports  requested. 

Group  3  has  6  columns  and  shows  the  allocation  of  user  time.  Column  TIME  shows 
the  total  time  allocated  to  the  user.  Column  OVER  shows  the  time  allocated  to  over¬ 
head.  Column  LOC  shows  the  time  allocated  to  entering  location  identifiers.  This  is 
from  user  entry  of  the  first  letter  until  the  message  is  sent  to  the  PDP  11-70  and 
accepted  by  the  PDP  11-70.  Column  SA  is  the  time  from  the  SA  request  until  all  SA's 
have  been  spoken.  Column  FT  is  the  time  from  a  request  for  FT  reports  until  all  FT 
reports  are  spoken.  Column  GF  is  the  time  from  the  GF  request  until  all  the  GF  re¬ 
ports  are  spoken. 

Group  4  has  6  columns,  which  contain  the  counts  of  how  many  times  the  user  used 
the  special  functions. 

awsial  runcUflM 

Title  EWrtiQB 

Stop  Stop  voice  output 

Go  Proceed  with  voice  output 

RPT  Repeat  prompt  or  current  report 

DEL  Cancel  last  user  entry 

JMP  Jump  to  next  report 

BEG  Recycle  to  beginning  of  briefing. 

The  last  column,  which  is  labelled,  LOC  ID  REQUESTED  contains  a  list  of  location 
Identifiers  entered  by  the  user  during  the  last  pass  through  the  briefing. 
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2.3  SUMMARY  REPORT 


The  fourth  report  type  is  a  summery  of  the  day's  activity.  The  first  column  is 
the  hour  in  GMT.  The  second  column  is  the  number  of  users  during  the  hour.  The  third 
column  is  the  average  time  used  by  each  user.  The  fourth  column  is  the  maximum  number 
of  simultaneous  users  during  the  hour. 

Below  this  is  the  total  number  of  users.  This  is  after  deleting  users  who  merely 
called  in  then  hung  up. 

The  average  time  is  the  total  time  by  all  users,  divided  by  the  number  of  users. 
Next  is  the  maximum  number  of  simultaneous  users  for  the  entire  day. 

The  fractional  percentages  are  found  by  summing  the  times  for  all  users  and 
dividing  the  time  for  each  purpose  by  the  total  time  users  were  on  the  system.  OVHR 
is  the  percentage  of  time  allocated  to  overhead  (i.e..  the  system  is  neither  accepting 
user  inputs  nor  responding  to  user  requests.  It  is  derived  from  the  column  OVER  in 
the  User  Report.  Similarly  LOCID  is  derived  from  the  LOC  values,  and  SA,  FT,  GF  from 
their  corresponding  values  in  the  User  Report. 

The  last  part  of  the  daily  summary  report  contains  a  list  of  all  location  identi¬ 
fiers  requested  and  the  request  counts. 


3.  ANALYSIS  OF  THE  VRS  STATISTICAL  FILE 


During  each  VRS  operating  day,  a  statistics  file*  is  maintained  (see  Appendix  A) . 
In  block  0  of  the  file  is  the  starting  date  and  time  in  seconds  and  the  finishing 
data  and  time  in  seconds.  The  first  page  of  the  statistical  report  contains  these 
data  as  date  and  time  in  minutes  for  identification  (see  Appendix  B) . 

The  remainder  of  the  file  contains  event  records  and  these  are  used  for  analysis. 
The  record  definition  appears  in  Table  3-1.  The  event  records  are  subdivided  into 
groups  based  on  channel  number.  The  events  records  are  in  chronological  order.  User 
records  are  defined  as  all  those  records  for  a  channel  which  are  between  a  channel 
ringing  record  and  the  first  channel  disconnect  record  inclusive.  Specifically,  the 
channel  ringing  is  when  the  low-order  byte  of  US.FLG**  equals  5,  and  the  channel  dis¬ 
connect  is  when  the  low-order  byte  of  US.FLG  equals  6  (Tables  3-2,  3-3) .  The  statis¬ 
tics  for  each  user  is  put  on  one  line  of  the  report.  However,  any  user  whose  second 
event  is  channel  disconnect  is  not  recorded  in  the  statistics. 

Using  the  user  data,  the  gross  statistics  are  computed.  The  time  of  day  in 
column  1  is  the  GMT  time  on  the  event  record  channel  disconnect.  The  briefing  time  in 
column  6  is  the  difference  in  time  between  the  time  of  day  on  the  channel  ringing 
event  and  the  channel  disconnect  event. 

In  order  to  get  the  counts  in  columns  2  through  5,  each  user's  records  are  divided 
into  passes.  A  pass  consists  of  2  phases,  (1)  a  location  Identifier  entering  phase 
and  (2)  a  report  requesting  phase. 

TABLE  3-1.  FILE  VRQATA.DAT  RECORD  FORMAT 


word 

Byte 

Contents 

1 

Recorder  Header  (contains  the  value  -16) 

2 

3 

Length  in  bytes  of  the  variable  data 
record 

3 

5 

Channel  Number  being  recorded  (U.S.  CHN) 

4 

Line  Status  (US.STA) 

5 

10 

Current  state  of  the  protocol  (US. KEY) 

6 

11,12 

User's  Current  Status  (US.FLG) 

7 

13,14 

Additional  status  information  (US. PER) 

8 

15,16 

Low-Order  Time  since  midnight  in  seconds 

9 

17,20 

High-Order  Time  since  midnight 

10+ 

21+ 

Variable  data  record  (length  given  in 
word  2) 

The  location  identifier  count  in  column  2  is  done  in  two  parts.  First,  the  loca¬ 
tion  identifier  entering  phase  is  checked  to  locate  the  record  which  has  the  greatest 
location  identifier  count.  This  becomes  the  location  Identifier  count  for  that  pass 
through  the  briefing.  Then  the  location  identifer  counts  for  each  pass  are  sunmed  up 
for  the  user  to  arrive  at  the  total  location  identifier  count  for  the  user  in  column  2. 
The  location  Identifier  input  &hase  is  defined  by  the  high-order  byte  of  US. KEY  being 
either  equal  to  1  (EOCID)  or  5  (NXTLOC) . 

The  report  type  count  is  computed  for  each  briefing  pass  by  checking  the  high-order 
byte  of  US. KEY.  If  a  report  is  requested  during  that  pass  (i.e.,  US. KEY  byte  value 
equals  15  for  SA's,  17  for  FT's,  20  for  GF's)  the  number  of  reports  of  that  type  re¬ 
quested  for  that  pass  equals  the  number  of  location  identifiers  entered  that  pass. 

This  is  then  summed  over  the  passes  for  that  user  and  entered  in  columns  3,  4  and  5. 

Use  of  the  REPEAT  function  may  lead  to  getting  multiple  report  counts  in  1  pass. 


1.  Twenty  Channel  Voice  Response  System,  Input  Output  Computer  Services,  Inc.,  Final 
Report. 

'Section  2.3.2,  contains  a  description  of  the  statistics  file  (VRDATA.DAT) . 
Appendix  B  also  provides  a  partial  dump  of  file  VRDATA.DAT. 

••Refer  to  Tables  3-2  and  3-3  for  definition  of  U.S.KEY  and  US.FLG  values 
respectively. 
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TABLE  3-2.  US. KEY  (HIGH-ORDER  BYTE) 


Vain*  (Octal) 

0 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 

32 

33 

34 


Flap  word 

HELLO 

LOCXD 

BRIEF 

WHATBR 

BRIEF2 

NXTLOC 

POUND 

COMPLI 

RPTYP 

HOURS 

ALTI 

MORE 

NOTAM 

SUROVB  (SA'a) 
PIREPS 

TERMFC  (FT 'a) 

WINDS  (GF'a) 

PHOURS 

PALTZ 

PSYN 

WARN 

LATOBS 

FORCAS 

WINDAL 

EHOURS 

EALTI 

ENROUT 

ENALT 

ENETA 


TABLE  3-3.  U5.FLG  (LOW-ORDER  BYTE) 


VRiM  -IflCLftI) 


1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 


#  sign  Indicator 

*  indicator 

Talk  mode  indicator 
Invalid  keystroke 
Channel  ringing  indicator 
Channel  disconnect  indicator 
YES  response 
NO  response 

Return  to  interrupted  code 
Briefing  return 
Repeat  last  message  unit 
Cancel  last  input 
Proceed  with  speaking 
Stop  present  activity. 
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TABLE  3-3.  OS.FLG  (HIGH-ORDER  BYTE)  (CONTINUED) 


Value  (Octal) 


Meaning 


1 

2 

4 

10 

20 

40 

100 

200 


Enable  Data  Set 
Numeric  Input  Expected 
Cycle  to  Next  DAP  Value 
Echo  Input  Flag 
Phonetic  Echo 
Do  Not  Enable  Data  Set 
Speak  Done  Indicator 
Echo  Done  Indicator 


The  allocation  of  time  to  overhead,  location,  SA,  FT  and  GF  are  allocated  by  use 
of  the  high-order  byte  of  US. KEY.  When  2  consecutive  records  for  1  user  have  different 
US. KEY  values  the  time  between  them  is  allocated  to  the  second  record  US. KEY  value. 

For  this  purpose:  (1)  US. KEY  values  1  (LOCID)  and  S  (NXTLOC)  are  considered  equal: 

(2)  US. KEY  values  20  (GF) ,  21  (PHOURS)  and  22  (PALTI)  are  GF  reports,  and  (3)  us. KEY 
values  2  (BRIEF  )  and  4  (BRIEF2)  are  assigned  to  the  report  request  preceding  them. 

An  example  of  assigning  US. KEY  values  BRIEF  and  BRIEF2.  If  there  are  3  con¬ 
secutive  records  for  1  user  and  the  first  US .KEY  value  is  15  (SA) ,  the  second  record 
2  (BRIEF)  and  the  third  record  4(BRI£F2) ,  the  routine  assumes  all  US. KEY  values  are 
15  (SA). 

Columns  11  through  IS  contain  counts  of  the  special  functions.  As  each  record  is 
processed,  the  lower-order  byte  of  US.STA  is  checked  (Table  3-4) .  If  the  byte  has  a 
value  from  42  to  50  octal,  it  is  processed  by  incrementing  the  counter  for  that  special 
f unction . 


TABLE  3-4.  SPECIAL  FUNCTION  CODES  (US.STA  -  LOW-ORDER  BYTE) 


Function 

Octal  Valve 

Explanation 

Stop 

42 

Briefing  stopped  by  user 

Go 

43 

Briefing  restarted  by  user 

Begin 

44 

Recycle  to  beginning  of  protocol 

Repeat 

45 

Briefing  repeated  by  user 

Jump 

46 

Report  skipped  by  peer 

Delete 

50 

Cancel  last  entry 
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4.  PROGRAM  STRUCTURE 


The  routines  used  in  this  VRS  statistics  program  may  be  divided  into  7  groups 
(see  Appendix  C) .  The  first  group  consists  only  of  the  main  program  which  has  2 
functions:  (1)  to  screen  out  data  based  on  channel  number  and  option,*  and  (2)  to 
call  the  other  routines  of  the  program. 

The  second  group  is  the  read  group.  This  program  consists  of  all  routines  in¬ 
volved  in  reading  the  trace  file.  This  group  opens  the  file,  locates  the  starting 
block  and  byte,  provides  1  record  at  a  time  on  request  and  closes  the  file  when  the 
end  of  file  is  reached. 

The  third  group  is  the  user  group.  This  group  looks  for  records  with  channel 
ringing  and  channel  disconnect  status.  When  a  channel  ringing  record  is  found,  it 
records  the  starting  time.  When  a  channel  disconnect  status  is  found,  it  stores  the 
time  of  day.  and  the  connect  time.  Xt  screens  out  those  users  who  have  only  a  chan¬ 
nel  ring-up  and  a  channel  disconnect  event. 

As  part  of  the  user  group,  the  count  of  users  for  each  hour  is  stored  and  the 
maximum  number  of  users  per  hour  is  stored. 

The  fourth  group  is  the  locations  group.  This  group  looks  for  records  with  LOCXD 
and  NXTLOC  status.  Xt  counts  for  each  user  the  number  of  location  identifiers  re¬ 
quested. 

Under  option  2,  it  will  also  store  the  actual  3  letter  location  identifier  codes 
requested  by  the  user.  Under  option  4,  it  will  store  the  location  identifiers  and 
the  number  of  requests  for  that  location  for  all  users  for  the  entire  data  collection 
period. 

The  fifth  group  is  the  status  group.  It  checks  all  records  and  counts  the  number 
of  records  having  a  given  status. 

The  sixth  group  is  the  time  group.  This  group  records  the  time  between  2  speci¬ 
fied  events.  Xt  is  done  both  for  individual  users  and  summed  up  for  the  day. 

The  seventh  group  is  the  output  group.  Under  option  1,  a  line  is  printed  for 
each  user.  The  header  and  daily  summary  are  always  printed. 


*Statlstical  report  opitons  are  described  in  Section  5. 
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TITLE;  STATA  (Tigure  4.1) 

STATA  la  the  main  program  and  haa  3  functlona.  The  firat  la  to  raad  in  a  racord 
and  make  aura  the  uaer  number  of  the  record  la  between  1  and  20,  incluaive. 

The  aecond  la  to  atore  a  copy  of  the  current  record  and  the  previoua  record  for 
each  uaer. 

The  third  function  is  to  call  the  various  processing  programs  in  order.  The 
routines  direclty  called  are: 

1.  READER:  Reads  in  a  record. 

2.  MINUTE:  Converts  time  in  seconds  on  the  record  to  minutes  and  tents  of 
minutes . 

3.  LOCO:  Counts  location  identifiers. 

4.  MORE:  Saves  data  from  all  previous  passes  when  there  are  multiple  passes. 

5.  UMAX:  Computes  the  maximum  number  of  simultaneous  users  for  each  hour  and 
for  the  day. 

6.  REPORT:  Computes  the  number  of  weather  reports,  by  type,  for  each  user. 

7.  STATUS:  Counts  the  number  of  times  each  special  function  ia  used  for  each 
user. 

8.  TIMER:  Computes  the  user  connect  time,  and  the  time  of  day  for  each  user. 

It  also  types  a  line  for  each  user.  As  part  of  this  routine,  an  hourly  count 
of  users  and  their  total  connect  time  are  accumulated. 

9.  SUtMARY :  Computes  the  total  number  of  users  for  the  day  and  the  average  con- 
nect  time.  It  then  prints  the  daily  summary. 

10.  COUNT:  Computes  a  matrix  counting  the  number  of  records.  The  columns  are 
DAP  KEYS  from  US. KEY  and  the  rows  are  flags  from  the  low-order  of  US.FLG. 

11.  KEYY:  Counts  the  total  number  of  users  and  the  total  number  of  users  who  hang 
up  before  requesting  a  report. 

The  routines  not  directly  called  are: 


12. 

OPENEN 

13. 

IN  IT 

14. 

CLOSER 

15. 

READS 

16. 

START 

17. 

FINISH 

18. 

BATCH  CHECK 

19. 

TYPEN 

20. 

LOCAT 

21. 

LOCU 

22. 

ERROR 

TITLE: 

STATA 

Read  a  record  using  routine  READER. 
Is  there  an  end  of  file? 


Then: 

Else: 

Call  routine  a  uninary 

Is  the  user  number 

between  1-20 

STOP 

Then: 

Else: 

Call  MINUTE 

Call  LOCO 

Call  MORE 

call  UMAX 

Call  REPORT 

Call  KEYT 

Call  STATUS 

Call  TIMER 

Co  to  beginning 

Go  to  beg. 

Compatible  routine*  not  normally  u*ed. 


* 
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.  MAIN  PROCRAM  AMD  DIRECTLY  CALLED  PROGRAMS 


TITLE:  READER  (Figure  4-2) 

READER  is  the  routine  which  handles  the  interface  with  the  data  file  and  provides 
the  data  1  record  at  a  time  to  routine  STATA.  On  the  first  request  for  a  record,  the 
file  is  opened  using  routine  OPENER . 

Then  routine  INIT  ,-eads  in  block  0.  In  block  0  is  the  starting  point  and  the 
ending  point  for  trace  data.  Routine  INIT  passes  on  to  READER  the  last  block  and  the 
last  word,  which  will  be  used  to  set  the  end  of  file  check.  It  uses  routine  READS  to 
read  in  the  first  block  of  valid  data  and  sets  the  word  pointer  to  the  first  data  word. 

In  all  read  requests,  the  program  reads  in  a  record  from  the  buffer.  Since  the 
records  have  variable  lengths,  this  must  be  done  in  2  steps.  In  step  1,  4  bytes  are 
reed  in.  Then  routine  ERROR  checks  to  insure  the  record  is  valid.  If  it  is  not  valid, 
then  the  ERROR  routine  sets  the  word  pointer  and  returns.  If  there  is  no  error,  then 
the  record  length  is  set  to  14  plus  the  contents  of  byte  3  and  the  remainder  of  the 
record  is  read  in  from  the  buffer  using  routine  READS.  It  is  the  remainder  of  the 
record  which  is  transferred  to  routine  STATA. 


TITLE:  READER 


Is  this  block  zero? 


Than: 

Call  OPENER 

Call  INIT 

BEG 

Set  byte  count  to  4 

Call  READS 

Call  ERROR 

Else: 

Is  there  a  reading  error? 

Then: 

Return  to  BEG 

Else: 

Word  count  «  14+  contents  byte  3 

Call  READS 

Is  this  an  end  of  file? 

Then: 

Set  EOF 

INDICATOR 

Call  CLOSER 

i 


RETURN 


10 


11 


Zb  each  record,  words  8  sad  9  contain  the  time  in  seconds.  This  requires  17  bits. 
Mord  8  contains  the  lower  16  bits  and  word  9  contains  the  seventeenth  bit  as  bit  0 
of  the  ninth  word.  The  program  shifts  the  bits  2  positions  right  (division  by  4)  and 
then  smltiplies  the  result  by  4/60  to  convert  to  minutes.  The  result  is  placed  in  the 
word  TIME. 


TITLE:  MINUTE 

Cur6  -  current  record  word  8 

Cur 7  -  Currenf:  word  9 

TIME  -  Time  in  minutes;  set  to  0 


(Figure  4-3) 


This  routine  cotints  the  number  of  location  identifiers  entered  by  the  user.  The 
number  of  locations  count  is  rot  recorded  in  the  raw  statistics  directly  and  so  the 
following  method  was  chosen.  Each  record  contains  the  last  ASCII  message  sent  to  the 
FOP  11/70.  Therefore,  a  search  will  be  made  for  the  ASCII  messages  which  contain  the 
location  identifiers  and  a  count  will  be  made. 

The  criteria  for  the  record  search  is  that  the  high-order  US. KEY  byte  is  1  (LOCID) 
or  5  (NXTLOC)  and  that  the  ASCII  text  have  a  "PMM  following  the  user  number. 

The  search  begins  2  bytes  beyond  the  "P“ .  The  first  test  is  that  there  be  3  let¬ 
ters  (a  possible  location) .  The  count  of  locations  is  incremented  by  1  if  the  test  is 
passed.  The  second  test  is  to  check  if  the  3  letters  are  followed  by  a  slash.  All 
locations  except  the  last  on  this  message  must  have  a  slash  following  the  location 
code.  Thus,  the  location  count  is  terminated  when  the  slash  test  fails. 

Under  option  2,  the  actual  3  letter  codes  will  be  stored  for  each  user.  Under 
option  4,  LOCAT  is  called  to  store  a  daily  sumnary  of  the  location  identifiers  and  the 
number  of  users  requesting  that  location. 


TITLE:  LOCO 


IRE (16)  the  high-order  byte  of  US.KEV. 
Count  (IUSER)  count  for  user 
Is  IRE (16)  equal  to  S  or  17 


Then: 

Is  byte  (16)  equal  to  P  and  byte  (17)  equal  to  M 

Then: 

77  Are  the  bytes  equal  to  three  letters? 

Else; 

Count  •  Count  +  1 

Else: 

Is  the  next  character  a  'y'7 

Then;  Else: 

Else: 


TITUS ;  MORE 


Routine  MORE  produces  3  locution  requested  counts:  (1)  locations  requested  by 
each  user.  (2)  locations  requested  by  each  user  for  each  briefing  pass,  and  (3)  loca¬ 
tions  requested  by  each  user  during  the  current  pass.  A  pass  consists  of  an  input  of 
locations  followed  by  a  request  for  reports. 

The  inputs  to  this  program  are  a  user  number,  a  location  count,  the  high-order 
byte  of  US. KEY  and  the  lower-order  byte  of  US.FLG.  The  output  is  the  total  number  of 
locations  requested  by  each  user  for  the  output  routine  TYPER,  and  the  number  of  loca¬ 
tions  for  this  pass  to  the  report  counter  routine  REPORT. 

When  a  record  is  to  be  processed,  the  first  thing  to  be  tested  is  the  US.FLG  byte. 
If  it  indicates  a  new  user  (value  equals  S) ,  then  all  counts  are  set  to  0  and  the  new 
pass  indicator  is  set  to  0.  The  routine  is  thsn  exited. 

Next  the  US. KEY  byte  is  checked.  If  it  indicates  reports  are  being  requested 
(value  greater  than  S) ,  the  total  locations  requested  is  set  equal  to  the  sum  of  the 
total  number  of  locations  entered  in  previous  passes  plus  the  number  of  locations 
entered  in  this  pass.  The  new  pass  indicator  is  set  equal  to  1  and  the  routine  exited. 

Next  the  US. KEY  byte  is  checked  for  1  (LOCID)  or  5  (NXTLOC) .  If  it  is  neither  of 
these,  the  routine  exits.  If  it  is  either  of  these,  the  new  pass  indicator  is  checked. 

If  the  new  pass  indicator  is  0,  the  count  for  this  record  is  compared  to  the  count 
for  this  pass  and  the  larger  value  is  entered  in  the  count  for  this  pass.  Then  the 
routine  is  exited. 

If  the  new  pass  indicator  is  1  then  a  new  pass  is  starting.  Hence  the  count  for 
current  pass  is  added  to  the  count  for  previous  passes,  the  count  for  this  pass  is  set 
to  the  count  for  this  record  and  the  new  pass  indicator  is  set  to  0.  Then  the  routine 
is  exited. 


TITLE:  MORE 

I USER  -  User  channel  number 

COUNT  -  Count  of  locations,  latest  count  for  user 
GOUNTL  -  Maximum  count  for  this  pass  and  this  user 
COUNTM-  Sum  of  maximum  counts  for  all  previous  passes 

Has  US. KEY  returned  to  5  (NXTLOC) 


TITLE:  UMAX 

Routine  UMAX  compute*  the  maximum  number  of  simultaneous  users  for  each  hour. 

The  inputs  are  the  user,  the  time,  and  the  low-order  byte  of  US.FLG. 

When  a  record  has  a  US.FLG  value  (low-order  byte)  of  5,  a  check  is  made  of  the 
user  channel  active  indicator.  Zf  the  indicator  is  clear,  the  user  count  is  incre¬ 
mented  by  1. 

When  a  record  has  a  US.FLG  value  of  6,  a  check  is  made  of  the  user  channel  active 
Indicator.  If  the  indicator  is  set,  the  user  count  is  decremented  by  1  and  the  user 
channel  active  indicator  is  cleared. 

Zn  all  eases,  the  current  count  is  compared  with  the  maximum  count  for  the  hour 
and  the  maximum  count  is  adjusted  if  required. 
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This  routine  counts  the  number  of  reports  by  type  end  user. 


If  a  record  has  a  5  in  the  low-order  byte  of  US . FLG  ( channel  ringing) .  the  counts 
for  that  user  is  set  to  0. 

If  the  US. KEY  high-order  byte  indicates  a  report  type,  the  count  for  that  report 
type  and  that  user  is  incremented  by  the  location  count  for  that  user  and  the  current 

pass. 


TITLE:  REPORT 

COUHTL  Current  pass  location  count 
1USER  User 

SAI  SA  count  for  each  user 

FTI  FT  count  for  each  user 

EDI  OF  count  for  each  user 

Is  US. FLG  low-order  byte  5? 
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Routine  STATUS  chocks  the  status  byte  to  determine  the  status  comnand  requested 
by  the  user.  A  count  of  commands  are  collected  and  as  part  of  the  output  there  is 
a  list  of  status  commands  and  how  often  they  were  requested. 


(Figure  4-4) 


Routine  TIMER  is  used  to  decide  whether  a  user  is  to  be  counted  in  the  statistics 
Currently,  there  are  2  criteria:  (1)  the  user  must  have  a  channel  ringing  and  a  chan¬ 
nel  disconnect  event,  and  (2)  the  user  must  have  1  other  event. 

Every  time  a  channel  ringing  event  occurs,  routine  START  is  called  to  initialize 
the  channel. 

Every  time  a  channel  disconnect  is  encountered,  a  check  is  made  as  whether  to 
count  this  user.  Current  criteria  are:  (1)  the  channel  must  be  active,  and  (2)  there 
must  be  at  least  1  event  between  the  channel  ringing  and  channel  disconnect  events. 

If  the  criteria  are  met,  then  routine  FINISH  is  called. 

Routine  START  sets  the  user  start  time  to  the  current  time  and  sets  the  channel 
active  indicator. 

Routine  FINISH  computes  time  active  as  current  time  minus  start  time.  It  then 
calls  routine  TYPER  to  print  a  line. 


TITLE:  TIMER 

Is  low-order  byte  of  US.FLG  equal  to  5? 
Then: 

Call  START 


Else: 

Is  US.FLG  equal  to  6? 


Then: 

Call  FINISH 


Else: 


RETURN 
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This  routine  is  called  by  the  main  program  when  file  processing  is  complete.  Zt 
prints  hourly  statistics,  followed  by  daily  statistics.  The  hourly  statistics  are 
the  number  of  users,  the  average  time  a  user  is  on  the  line,  and  the  maximum  number  of 
simultaneous  users.  The  daily  statistics  are  total  number  of  users,  the  average  user 
time,  and  the  maximum  number  of  simultaneous  users.  Further  there  is  a  breakdown  of 
how  the  user  time  is  used. 

When  option  4  is  used,  a  listing  of  the  location  identifiers  and  times  called  is 
produced. 


This  routine  acts  up  a  2  dimensional  count  array  where  1  aubecript  ia  the  high- 
order  byte  of  US. KEY  and  the  other  aubecript  ia  the  lower-byte  of  US.FLG.  When  a 

record  ia  read>  the  US.FLG  byte  ia  checked.  If  the  value  ia  S  and  the  laat  value  of 

US.FLG  for  that  uaer  ia  5  or  6,  the  record  ia  not  counted.  If  the  value  ia  5  and  the 

laat  US.FLG  for  that  uae.r  waa  5  the  record  la  not  counted.  Zn  any  other  eaae.  the 

count  array  ia  incremented  by  1. 

After  doing  the  count,  the  current  value  of  the  US.FLG  byte  la  atored  in  the  flag 
array  for  that  uaer  and  the  type  routine  ia  executed. 

The  type  routine  provldea  for  a  typing  of  all  non-sero  elementa  of  the  count  array 
at  the  end  of  each  hour  of  VRS  operationa. 


TITLE:  COUNTX 


INPUT: 

Cur  6 

US. KEY  high-order  byte 

Cur  7 

US.FLG  low-order  byte 

Time 

VRS  Time 

IUSER 

Uaer  channel 

Za  Cur 7  and  FLG  (IUSER)  both  6? 


Then: 

Elae: 

la  Cur 7  equal  to  6  and  FLG  (1SUER)  equal  to  5? 

Then: 

Elae: 

la  Cur 7  equal  S  and  FLG  (IUSER)  equal  5? 

Then: 

Elae: 

Increment  Counter 

(CurS,  Cur 7) 

FLG  (IUSER)  »  Cur 7 


RETURN 


This  routine  is  a  diagnostic  tool  which  reads  each  event  record  and  makes  event 
counts  (Table  4-1).  The  terms  used  are:  active  (having  a  user  on  the  channel)  and 
inactive  (having  no  user  on  the  channel) . 

First  each  event  is  checked  to  determine  whether  the  event  is  activation  of  a 
channel  or  the  deactivation  of  a  channel.  If  it  is  either,  a  counter  is  incremented. 

Next  the  channel's  prior  status  is  checked  to  see  if  it  was  active.  If  it  was 
not.  then  the  following  checks  are  made.  First,  a  check  is  made  to  determine  whether 
the  channel  is  cleared.  If  it  is  not,  counter  7  is  incremented.  Second,  is  the 
channel  being  activated?  If  it  is,  then  counter  one  is  incremented. 

If  the  channel  was  previously  activated,  the  following  checks  are  made.  Is  the 
active  channel  being  activated?  If  it  is,  then  counter  four  is  incremented.  Next 
a  check  is  made  to  determine  whether  the  channel  is  being  deactivated.  If  it  is  being 
deactivated,  the  following  checks  are  made.  Were  any  locations  entered?  If  not,  then 
counter  five  is  incremented.  Were  any  reports  requested?  If  not,  then  counter  2  is 
incremented. 


TABLE  4-1.  TEST  TABLE 


Current 

Previous 

Counter 

Event 

Status 

Event 

Kev* 

1 

activation 

inactive 

_ 

IREC7  «  5 

2 

deactivation 

active 

- 

KEYM  «  5 

3 

activation 

- 

- 

IREC7  -  5 

4 

activation 

motive 

- 

IREC7  «  5 

5 

deactivation 

motive 

activation 

JREC  *  5 

6 

inactivation 

- 

- 

IREC7  -  6 

7 

inactivation 

channel  not 
cleared 

• 

IREC6  -  0 

IREC7 

Low-order  byte. 

US.FLG 

IREC6 

High-order  byte,  OS. KEY 

JREC 

Previous  value 

of  IREC7 

KEYM 

Maximum  value  IREC6 

*Key  is  for  each  user. 


This  routine  cells  on  library  routines  to  open  the  disc  file,  it  in  any  step  an 
error  occurs  or  there  is  no  room  for  this  input,  the  program  stops. 

Routine  I CHAN  allocates  a  channel. 

Routine  LOOKUP  opens  the  file,  allocates  buffer  space  and  sets  the  buffer  pointer 
at  the  start  of  the  file. 


This  rout ins  calls  on  library  routines  to  closs  and  frea  the  channel. 
CLOSE  closes  the  chennel. 

XFREEC  frees  the  channel. 


TITLE;  READS 

This  routine  manages  the  buffer  filling  and  provides  records  or  parts  of  records 
as  required.  The  data  on  the  disc  are  in  blocks  of  516  bytes.  For  initialization  the 
buffer  pointer  is  set  at  512  and  the  block  counter  at  0. 

The  routine  is  called  to  provide  a  specified  nunfeer  of  bytes.  If  based  on  the 
buffer  pointer,  there  are  enough  bytes  remaining  in  the  buffer,  the  bytes  of  data  are 
transferred  from  the  buffer  to  the  specified  array.  Then  the  buffer  pointer  is  incre¬ 
mented  by  the  number  of  bytes  transferred.  Then  the  routine  exits. 

If  there  are  two  few  bytes  left  in  the  buffer,  then  the  data  in  the  buffer  are 
transferred  to  the  array  and  a  record  made  of  bytes  transferred.  Next  library  routine 
REACH  is  used  to  read  in  a  block  of  512  bytes.  The  block  count  is  increment,  the  buf¬ 
fer  pointer  is  set  to  the  beginning  of  the  buffer  and  a  second  data  transfer  is 
executed. 


TITLE:  START 

Routine  START  is  called  by  routine  TIMER  whenever  a  channel  ringing  event  occurs. 
The  routine  sets  the  user  start  time  to  the  time  on  the  event  record,  and  sets  the 
active  channel  indicator. 

Set  the  Start  time  to  the  time  on  the  record.  Set  the  active  channel  indicator. 
Return. 
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TITLE.  FINISH 

Routine  FINISH  computes  the  time  a  user  has  been  on  the  system,  updates  summary 
*  statistics,  and  arranges  for  the  printing  of  a  line  for  each  user. 

The  first  step  is  *o  check  if  there  is  a  bonafid  user.  This  means  that  the 
active  user  for  this  channel  is  set  and  the  previous  record  for  this  channel  did  not 
have  a  5  in  the  low-order  byte  of  US.FLG. 

If  the  record  falls  the  test,  the  routine  is  exited.  If  the  test  is  passed,  the 
time  of  day  is  set  to  the  time  on  the  record,  the  time  for  this  user  is  computed  as  the 
time  on  the  record  minus  the  start  time  for  this  channel,  the  cumulative  statistics 
are  updated,  and  a  line  is  printed. 

The  cumulative  statistics  are  the  number  of  users  for  the  hour  in  this  record  and 
the  total  time  users  are  on  during  the  hour  in  this  record.  The  user  count  is  incre¬ 
mented  by  1,  while  the  total  time  for  the  hour  is  incremented  by  the  time  of  this 
user. 


TITLE:  FINISH 


Is  the  active  user  indicator  for  this  channel  set? 


Then. 


Else: 


Nas  the  previous  US.FLG  equal  to 


Then: 


Else. 


5? 


Time  »  record  time  - 
start  time 

Total  Time  *  Total  time 

♦  time 

User  Count  ■  User  count 

♦  1 

Call  TYPER 


TITLE,  BREAK  CHECK 

This  routine  ia  called  by  timer  to  determine  if  there  was  a  break  in  the  data 
input.  A  break  oecura  when  the  time  of  the  laat  input  ia  more  than  60  minute#  before 
the  time  of  the  current  input.  This  ia  done  by  comparing  the  input  time  with  the  pre- 
vioua  input  LTIME.  Zn  thia  compariaon,  apeeial  care  muat  be  made  for  the  tranaition 
from  2300  GMT  to  0  GMT. 

If  a  break  ia  found,  then  all  active  uaera  are  terminated  and  the  countera  and 
indicatora  for  the  laat  hour  are  reinitiated. 


TITLE,  BREAK  CHECK 

TIME  Current  time 
LTXME  Previoua  time 
KTXME  Time  difference 


la  time  lesa 
Then: 


KTIME  -  TIME  -  LTIME 
than  60  and  KTIME  lean  than  0? 

I  Elae: 


KTIME  -  KTIME  +  1640 
la  KTIME  greater  than  60? 


Then: 

ST  -  -1 
KEY  ■  3 

XHD  -  3 


Elae 


This  routine  has  data  prepared  by  other  routines  and  stored  in  global  commons. 
When  this  routine  is  called,  it  types  one  line  based  on  the  type  statement  and  the 
format.  Currently,  it  types  the  time  of  day  in  minutes,  the  user  briefing  time,  the 
user  count  for  the  hours,  the  running  average  briefing  time  for  the  hours,  the  user 
number,  the  number  of  locations  requested  by  the  user  and  the  report  types  requested 
by  the  user. 

Type  line 


xrnnw 


TITLE:  LOCAT 

Routine  LOCAT  is  called  by  routine  LOCO.  The  input  is  a  3  character  location 
identifier.  LOCAT  then  prepares  a  list  of  all  the  location  identifiers  inputed  by 
all  the  users.  It  also  keeps  a  count  of  the  number  of  requests  for  data  on  each 
location. 


TITLE:  LOCAT 


NLOC,  Number  of  location  identifiers;  set  NLOC  »  0 
Read  in  3  letter  code. 

Is  NLOC  greater  than  0? 


Then: 


Else: 


Then 


Is  the  entry  a  new  location  identifier? 
:  | Else: 


NLOC  «  NLOC  +  1 
Enter  Number  into  table 


NLOC  -  1 

Enter  Location  Identifier  in  table 


) 


RETURN 
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TITLE!  LOCO 


This  routine  sets  up  an  array  for  each  channel.  Every  time  routine  LOCO  checks 
a  location  identification  and  determines  the  location  it  has  3  letters.  LOCO  calls 
LOCO  which  stores  the  name  in  that  users  array.  This  array  is  printed  every  time  a 
line  is  hung  up.  Routine  TYPER  does  the  printing  of  the  array  contained  in  common  ENTS. 

TITLE:  LOCU 

ENT 4 ,  number  of  locations  stored  for  user;  set  ENT4  «  0. 

Read  in  3  letter  code. 

Increment  ENT 4  for  user. 

Does  ENT4  for  user  exceed  10? 


Then: 


ENT4  for  user  »  10 

Place  first  letter  in  ENT  (1.  ENT 4) 
Place  second  letter  in  ENT  (2.  ENT 4) 
Place  third  letter  in  ENT  (3.  ENT4) 


RETURN 


I 

L 


Routine  error  checks  the  first  2  bytes  of  each  new  record.  Zf  it  is  the  legiti¬ 
mate  record  start  {byte  1  equals  minus  1)  it  allows  processing.  If  it  is  not 
legitimate  the  file  is  searched  for  the  first  2  bytes  which  indicate  the  record  is 
legitimate. 


S.  STATISTICS  PROGRAM  OPERATION 


This  section  contains  the  procedures  for  building  and  running  the  VRS  statistics 
program.  The  program  requires  that  the  raw  data  file  be  named  TRACE.DAT.  Hence 
before  running  the  statistics  program,  rename  or  copy  the  data  file  of  interest  to 
TRACE.DAT. 

Program  Compilation- and  Task  Buildino  (RTll-Verslon  2) 

A.  Program  Compilation 

•R  FORTRAN 

STATQ  »  STATQ 
STATC  »  STATC 
STATD  ■  STATD 

B.  TASK  BUILD  COMMAND 
.R  LINK 

STATA  »  STATQ,  STATC,  STATD,  SYSF4,  F0RL1B 

C.  OPERATING  INSTRUCTIONS 

1.  Enter  on  terminal: 

j.R  STATA  (Run  Program  STATA) 

2.  Enter  2-digit  option  number  (Table  5-1) . 

3.  For  options  8  through  15,  type  block  and  byte  numbers,  each  in  14  format 

(e.g.,  for  block  100,  byte  52:  0100  0052). 

4.  Enter  a  2  digit  minimum  channel  number  between  01  and  20. 

5.  Enter  a  2  digit  maximum  channel  number  between  01  and  20. 

6.  The  program  then  outputs  the  statistical  report  according  to  the  options 
selected  by  the  user. 


TABLE  5-1.  OPTION  TABLE 


Option* 

Action 

0 

Print  summary  only 

1 

Print  a  line  for  each  user 

2 

Store  location  codes  for  each  user 

4 

Print  location  ID  and  demand 

8 

Manual  control  of  starting  block 

*A  combination  of  options  can  be  requested  by  adding  option  codes. 
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APPENDIX  A  -  SAMPLE  VRDATA.DAT  FILE  (PARTIAL  DUMP  -  1ST  3  BLOCKS) 


DKU:TP»CF.PAT 
BLOCK  KU*l»tP  00""0 
000/  004710  104354 
020/  "00356  000406 
040/  00000'*  OOOOCO 
060/  000000  000000 
100/  oooooo  ooooco 
120/  OOOOoO  oooooo 
140/  OOUf'O"  OOOOCO 
160/  OOOOOO  OOOOOO 
200/  OOOOOO  P"P0*;0 
220/  0000"0  OOOpoO 
240/  000CO0  onuf'00 
260/  OOOOOO  000(100 
300/  0000**0  OOOOCO 
320/  0P000O  OOOOOO 
340/  oooooo  ooooco 
360/  OOOOOO  OOOOOO 
400/  OOOOOO  oooooo 
420/  OOOOOO  OOOOOO 
440/  OOOOOP  OOOOOO 
460/  oooooo  oooooo 
500/  OOOOOO  oooooo 
520/  OOOd 00  (lUOO.io 
540/  OOOOOO  OOOOOO 
560/  0000**0  U0O000 

600/  OOOOOO  oooooo 
620/  OOOOOO  oooooo 
640/  OoOOOO  OOOOOO 
660/  OOOPOO  OOOOOO 
700/  OOOOOO  oooooo 
720/  OOOOOO  OOOOOO 
740/  OOOOOO  000*100 
760/  OOOOOO  oooooo 
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OOOOOO 

oooooo 
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oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

OOOOOO 
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oooooo 

oooooo 

00000(1 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 
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OOOOOO 

OOOOOO 

oooooo 
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OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 
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OoOOOO 


OOOOOl 
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0"0000 
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(lOOOOf 

oooooo 

"00000 
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OOOOOP 

oooooo 


004750 
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0000(10 

oooooo 
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oooooo 

oooooo 

oooooo 

0000O0 

000(100 

OOOOoO 

OOOOOO 

oooooo 

OOOOOO 

OOOOOP 

OOOOOO 

00000" 

POPOCO 

O'JflOOO 

oooooo 

0"0"OO 

opoomi 

opooo" 

OOOOOO 

*5"0*)00 

OOOOOO 

OOOCOO 

OPOOOO 

oooooo 

OOOOOO 

oooooo 


1 1 3601 

oooooo 

OOOOOP 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOPOO 

oooooo 

000070 

OOOOOO 

0""0OO 

oOOoOO 

0U"00o 

ooo"oo 
OOOuOO 
OCOOOO 
COOP ‘C 
OCOO'jO 

oo"ooo 
oouyO " 
oooooo 
ocoooo 
oooooo 
oooooo 
OOOyPO 
oooooo 
OOOOPO 
oooooo 
oooooo 


oooooo 

00000" 

oooooo 

OOOOOP 

000**00 

oonooo 

OOOOOO 

oooooo 

pnoooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOoOO 

000"0o 

oooooo 

oooooo 

OOOOOO 

00**000 

0000**0 

oooooo 

OOOOPO 

000"O0 

ooopoo 

oooooo 

oooooo 

OOyOOO 

oooooo 
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4H.LH . H 

•  N . 


block 

000/ 

020/ 

040/ 

060/ 

100/ 

120/ 

140/ 

160/ 

200/ 

220/ 

240/ 

260/ 

300/ 

320/ 

340/ 

360/ 

400/ 

420/ 

440/ 

460/ 

500/ 

520/ 

540/ 

560/ 

600/ 

*20/ 

640/ 

•60/ 

700/ 

720/ 

740/ 

760/ 


NUPPfcP  0000 
000000  16*02* 
007400  O50411 
070104  023457 
040411  0004C2 
177762  000014 
000(00  030446 
000014  0 3 0 4 0 1 
030440  030101 
030401  000041 
177767  OOPOIO 
000000  0430*2 
OOOOll  002400 
044120  077530 
031403  000011 
026504  02*4*7 
030401  0OOO40 
1777*2  000014 
000000  03004b 
000014  030000 
030046  0301 C  l 
030000  000041 
177762  0O001* 
OOOOOO  0430*2 
177762  0O0OC2 
OOOOOO  000066 
OOOOOO  16427* 
005400  040006 
0200*5  023453 
040011  001412 
023452  000015 
OOOOOO  164306 
007400  050411 


OOOOOO  000063 
000402  165032 
OoCOI 5  177762 
165040  OOOOOO 
030401  000041 
030107  0300*o 
000041  007400 
030060  035463 
OOOOOO  040011 
031007  OOOOll 
02ol 24  021446 
050411  000407 
043104  03*527 
OllOdO  045411 
034463  0224*0 
OOOOOO  040005 
030000  000041 
030102  0304*0 
000041  0 1 0  0  0  o 
0304*0  0340*0 
OOOOOO  040011 
031002  OOOOll 
026504  032062 
033006  000040 
177762  000002 
OOOOOO  000067 
000412  165304 
0000|5  177767 
165306  OuOOOO 
177762  000007 
OOOOOO  0000*3 
"000402  165307 


177762 
OOOOOO 
(' 000 10 
051 4*i 
007400 
036063 
040011 
023467 
OOOOOO 
007400 
000015 
165120 
0754*7 
000402 

02*457 
OOoOoO 
010000 
034460 
04001 1 
0234*2 
OOOOOO 
on  oon 
031455 

opnooo 

033407 

1777*2 
OOOOOO 
(1000 1  4 
031446 
031403 
1777o? 
OOOOOO 


00‘I01«  03<>401 
0*0061  07*51* 
030401  OOOOll 
022501  02144* 
04000*  000412 
023452  000015 
001412  1*5105 
000015  1777*7 

16510*  OOOOOO 
040411  000402 
1777*2  000020 
OOOOOO  050063 
000015  1777*2 
16*1*7  0*0000 
0000 1 5  177762 
165741  OOO0OO 
(•401,06  000417 
023457  000° 1 5 
00141?  1*5244 
000015  17/7*2 
166244  OOOOOO 
04*411  <)Oo4u2 
0374*0  02445* 
040005  OOOOOO 
000O40  (.uOOOO 
CUO  0 1 4  031  40  3 
031446  0jO|o2 
031403  000041 
030101  030060 
000*41  OuoOuO 
00(1020  C>  304»1 
0500*1  02*615 


ODODl 1 

051117 

00*400 

000015 

165103 

1777*2 

OOOOOO 

0000*2 
000061 
165114 
031403 
02*51* 
OOoO  1  6 
043063 
000002 
001/061 
1*524? 
1777o2 
oOyoOO 
00*002 
00u0*0 
1*5772 
000015 
165276 

1)4600* 
000041 
03o0*0 
005*0(1 
0374*5 
0*0011 
1)001/1  1 
05**23 


.3.*....!..* 
*. . .u. . .0. . 1PM-uP» 
•t>  /*  . .P....1 
•.4..  J  .  . 1SA%* »  ,  . * 
•R....1 !....«.. CJ* 
*..61B00d3<»»..*.» 
) « • • I 1....4*. CO • • 4 

•  H4000314* 

4.11.. ..4..F.I..1  .* 

4P....2 . A..LJ4 

». .7f 7  .  .  ,3» 

•  Pi*  /|>F«*7*.  .*•  .  .  .  • 

♦0-2- 360«/1. .0...* 

*.l  SOa.1  .» 

*4.. "0* 
*. .*0*001 06* • . .4 .* 
*. ..01... .4. .40. .♦ 
460A1C 1  (h» 
*.0*....P..$0..o.4 

4P....2 . *  a.SJ* 
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»5  ♦  31. 

4.4.  .F.l.  .*3*0005/4 

»*'..tlaa.a1!....i* 

4. . 60. .3. *.  ..at.  .4 
* . . .C . .00 • • 1 PB-6 1  * 
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APPENDIX  B  -  SAMPLE  VPS  STATISTICAL  REPORT 
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APPENDIX  C  -  PROGRAM  LISTING 


FORTRAN  IV 


V01C-03A 


c 


0001 

0002 

0003 

0004 

0005 

0000 

0007 

0000 

0009 

0010 

0011 

7777 

0012 

0013 

657 

0014 

0015 

633 

0016 

659 

0017 

654 

A01P 

656 

0019 

0020 

0021 

0022 

666 

0023 

0025 

0046 

0027 

0020 

6667 

0029 

0031 

0033 

79 

0034 

C 

0035 

776 

0036 

003P 

0039 

C 

0041 

7760 

0042 

0043 

0044 

0045 

45 

0046 

»2 

0047 

0040 

C 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

39 

0057 

0050 

719 

0059 

0060 

0061 

0067 

76 

0063 

79 

0064 

0065 

DAT*  r>FC.  12,1979  SENT  U>  MlTHF  ST  A  Tt).  FOR 
/T turn/  USTR“ 

co“mp«  /option/  inn 

COMMON  /PCAU/CUREC «PNPfO #RN'PHJ 
I RTEGER * 2  US1RM  ,TlNfc ,  XCHAM ,YCHAM 
IN1EC.EK*}  CUPEC(?0,32),PPNEC(20,32).REPMI(20) 

I  NT  t'GF  R*2  EOF ,  HtC(  32) 

LOGICAL*!  IPKC164) 

E0U1 VALENCE (REf( 1),1REC(1)) 

DATA  1  RFC  /64*0/ 

PRINT  7777, 

FORMAT (IPX,  •  VRS  STATISTICS  *  ) 

TYPE  657 , 

FORMAT (•  TTPF  OPTION  3N  12  FORMAT  •) 

ACCEPT  659 , IOP1 
CONTINUE 
FORMAT (T2  ) 

FORMAT (  •  TYPE  IN  MINJMIIM  CHANNEL  hU""iEF  ') 

FORMAT ( '  TYPE  IN  MAXIMUM  CHANNEL  NUMBER  •) 

TYPE  654, 

ACCEPT  659,XCHAM 
PRINT  666 \ XCH AN 1 

EORMAT ( •  “IN I MUM  CHANNEL  * , 12) 

IF (XCHAK1 .LF.0)XChAN*1 
TYPE  655. 

ACCEPT  659.VCHAM 
PRIM  6667  ,  YCHAN  1 
FORMAT!*  MAXIMUM  CHANNEL  ',12) 

IFfYCMANl ,GT ,20)YCmAnis] 

IFCXCmanI.GT.YCHAM )  GO  TO  633 
CONTINUE 

CALL  RF.AUER  !  1  RFC , J JPE C , EOF ) 

PRINT  7766,  !  IRE  C!lt'),IU«l .JjNtC) 

FURMATCIX, 1406,23*1 ) 

IFtEOF.GT.OJGO  TU  39 
TOSERclRECI 1 J ♦ 1 

IF(  lnSE;R,LT.XCHAM,OR.ll'SE.R.CT.YCH*’.J  )GUTH  76 
PRINT  77etf,I'ISER 
FOR “AT ( •  I UStR  ',15) 

DO  45  J«l , 32 

PPREC(IUS£R,J)>CUHbC( 1USE.N , J ) 

CURFC(Iu5ER,J)*RtC(J) 

CONTINUE 

CONTINUE 

CALL  NlNUTEtCUREC(IUSfR.6),CURfcC(IUSEH,7),TlME,ITYMt ) 
CALL  LOCO  (IUSF.F,JJRFC,IRFC) 

CAI L  KEYY  (IU5tR,lRFC(6),IKEC(7),riME) 

CALL  “ORC{ lUSFP , JJRtC , 1REC ) 

CALL  UMAX(IUSER.1REC(6),IREC(7),TIME  ) 

Call  repopt  (ilsfr.jjrec.ipeC) 

CALL  »CYTI1TY*E,1REC16),IHEC!7),IIISFR) 

CALL  STATUS  C1USCP , IRE C ( 3) , IRF C( 7 ) ) 

CALL  TlHER(IuSER,lRFC(6),IRECC7),ITYME) 

GO  TO  79 
CONTINUE 
TYPE  7*9, 

FORMAT! '1 • ) 

CALL  SUMMAR 
CALI,  SU«LOC 

STOP  * INIT • 

CONTINUE 

EUR* AT ( *  CHANNEL  OUT  OE  RANGE  ',07) 

CO  1079 
END 
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rORTBAN 

IV 

S70RACC  MAP 

NAME 

OFFSET 

attributfs 

REC 

000006 

INTEGER»2 

ARRAI  (32) 

IREf 

UOOOOO 

L0GICAL«1 

ARRAY  (64) 

TIME 

000572 

INTEGER  *  2 

VARIABLE 

XCMAN1 

000574 

INTEGER *2 

variahlf 

YCHAN ) 

000576 

1 NTEGER  *2 

VARIABLE 

EOF 

000600 

1nTEGER*2 

VARIABLE 

XCHAN 

000602 

R  F  A  L  *  4 

variable 

READER 

OOOUOU 

RFAL*4 

PROCEDURE 

JJREC 

000606 

I«TFGER«2 

VARIAHLF 

IUSER 

000610 

1 NTFGEP  *2 

VARIABLE 

J 

000612 

I NTEGER*2 

VAR1  A  (P>  6 

MINUTE 

OOOOOO 

INTEGER*} 

PPOCEDOrF 

ITYRE 

000614 

IKTFGER*? 

variahlf 

LOCO 

OOOOOO 

INTEGER*? 

PR(  CEPl'RF 

MORE 

OOOOOO 

INTEGER*? 

PPOCFIH  RI 

UMAX 

OOOOOO 

REAL*4 

PROOF OORF 

REPORT 

OOOOOO 

REAL** 

PROCEPl'RF 

KEYT 

OOOOOO 

INTEGER  *2 

PRClCtl'liRH 

STATUS 

OOOOOO 

RE*L*4 

PROCEDURE 

TIMER 

OOOOOO 

PEAL** 

PROCEDURE 

SUMMAR 

oooooo 

REAL*4 

PROCEDURE 

SUMLOC 

OOOOOO 

KFAL*4 

PROCEOGNH 

COMMON  BLOCK  /TEN*/  LENGTH  00(1002 

OSTPM  000000  INTEGER*?  VARIABLE 

COMMON  BLOCK  /OPTION/  LENGTH  000002 
IOPT  000000  INTEGER*?  VANjARLt 

COMMON  BLOCK  /READ/  LENGTH  00*050 


CUREC  000000  INTEGER*?  ARRAY  (20,32)  VECTORED 
PRPEC  002400  IN1EGER*?  ARRAY  (20,3?)  VECTORFo 
REPH1  005000  1«TEGER*2  ARRAY  (i(i) 


fortran  iv 


VUIC-I'JA 


0001 

ooo? 

0003 
0004 
0005 
0006 
0 00? 

0006 

0009 

oon 

0013 

0015 

0017 

0016 

0070 

0021 

0022 

0023 

0024  20 

002* 

0026 

0030 

0032 

0034 

0036 

0037 

0038  7* 

0039 

0041 

0042 

0043 

0044 

0045 

0046 


SliMROUl  INF  *E  YY(1  USE  R,  1  kt  Cfe,  1RRC7.1  l')E) 

INIEGFR*?  COUNT (20),T1*.E,AT1iE,1hC(?0) 

LUG  I  CALM  l»rC6,mC7,6FY*>(201  ,JRtC(  20) 

Dai  a  jrfc  /2u*o/ 
oata  key*  /2o*p/ 
data  ati ne  /o/ 

DATA  COUNT  /70*0/ 

OATA  IRC  /20*0/ 

IF  (  IREC7  .til .  5)  COUNT (3)*COONT (3)*1 
IF(IRFC7.EQ.6)CnUMT (fe)*CUUNT (*)♦! 

IK(  IMCUUSEP )  .GT.O)  GO  TO  20 
IF(IREC7.E0.6.AND.IPFCfe.Nfc.0)CUlfcT(7)*CCR'NT(7)M 
JRFCUUSFP)*IReC7 
1FCIrEC7.i»F .5)  RFTUHn 

coo*  to  i»  count ( i )  ♦  i 

IMC( IUSFR)sl 
KFY  N ( luSFP )*0 
RETURN 

IF ( 1 RECb.GT ,NEYM( JUSER) )  K F Y ► ( I USER )*I RFC6 
IFOREC7.EQ.S 1C0UFT ( 4)*CuUNT ( 4 ) ♦ 1 
IF  (  !REC7.NE.b)JPFC  (I  USER  )*1NEC7 
IF(lRFC7.NE.b)  PFTURi. 

IF(JKEC(  IUSFP  ).f  O.S)Cut<6T(  5  )*COUNT(  51*1 
1F(KEYM(IUSER ).Lt .5)  COUNT 1 2 )*COUN T( 2 )  *1 
KEY* ( 1  USER )»0 
IHC( IUSFR 1*0 

FURmAT (IX*1  CudNT  Of  NON  RFPORT  REOUF.STS  '.6I7.F6. 
IFUTINk-ATiaH.LT.feni  RtT'JP» 

PATIO  «(lOO.*CUl'NT(2))/CUUNin  ) 

PRINT  7n .COUNT (11  ,COi.NTl2).COHNT(3),Cr»'i».T(4),CuiM(6 
PH1>'T  78, COUnT (7) 
atinf«ti-f 

PtTUP  N 
{NO 


FORTRAN 

IV 

STORAGE  MAP 

NAME 

OFFSET 

attributes 

COUNT 

000024 

1«TEGEr*2 

ARRAY 

(20) 

1HC 

000074 

INTEGEm«2 

ARRAY 

(20) 

RET" 

000144 

LOGICAL* 1 

array 

{?() 

JREC 

000170 

LOGICAL*! 

ARRAY 

(20) 

IUSFR 

000014 

INTEGER*! 

PARAMETER  VAR! API h 

IRCC6 

OOOOIfe 

LOGICAL*! 

PARAMETER  VARlAfcLf 

IREC7 

000020 

LOGICAL*! 

PARAMETER  VAR1ANLE 

TIRE 

000022 

integer*? 

PARAMETER  VARIABLE 

ATIME 

U00214 

Integer*? 

VAN!  A6I.F 

RATIO 

000272 

HE AL*4 

VAN  1 ABLE 

) 

,C(  UiiT(fe) 
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s 


FORTRAN  IV 

V01C-0JA 

OOOJ 

subroutine  sumloc 

0002 

CO*“ON  /NALOC /LUC 4  ,  LLC 

OOOJ 

CONNUN  /OPTION/  IOPT 

0004 

InTEGER*2  LUC4I400) 

0005 

LOGICAL*!  LOCI  3,400)  ,27  Ht< 

000* 

JOPT  «I0PT.A(Jl>.4 

0007 

IFCJOPT.LE.OJRETURN 

0009 

PRINT  100, 

0010 

PRINT  101, 

OOM 

100 

F0F*ATC*1  IDENTITY  COPES  AnO 

0012 

101 

FORMAT { 1  LOC  COUNT  LOC  ! 

1*  LOC  COUNT  LOC  CRUET  ') 

0013 

ZERO*0 

00]  4 

1Z*0 

0015 

76 

CONTINUE 

0016 

1X*IZ*1 

0017 

IF(IX.G£.401.OR.LPC4(lX).LI.ZEI 

0019 

IP*IX*5 

0020 

00  60  J R*1 X ,  IP 

0021 

JFIL0C4YIW) .LT.OJGO  1085 

0023 

IZ»lZ*l 

0024 

60 

CONTINUE 

0025 

B5 

CONTI  NMF 

0026 

76 

FUR«A1(6  f5X,  .141,15)1 

0027 

PNInT  76,  ( (LOCI  10. 11  ),!(.*  t  ,3),! 

0020 

GO  TO  76 

0029 

END 

') 


loc  count 


i.nc  ccn‘  T 


FORTRAN 

IV 

STORAGE  NAP 

MANE 

OFFSET 

attributes 

ZERO 

000232 

LOGICAL*  1 

Vf KJAHLV 

JOPT 

000234 

I nTEGE  R ♦ 2 

VANjAHLfc 

1Z 

000236 

1NTEGER*2 

VAR]  A  RLE 

XX 

000240 

lNTEGfc'R*2 

VARIABLE 

IP 

000242 

f NTEGER*2 

VART A6L£ 

IP 

000244 

Integer*! 

VAft] ABLE 

XU 

000246 

If.fEGFR  *2 

VARIABLE 

XI 

000250 

INTEGER*2 

variable 

CO¥"Oh  Bt<iCK  /nALOC/  LENGTH  0u3720 

LOC4  OOOOOO  J».7ECE»*2  ARRAY  *400) 

LOC  001440  LOGICAL*  1  ARRAY  13,400) 

COR*»ON  BLOCK  /OPTION/  LFNGTH  000002 

I OPT  000000  JNTE0FR*2  VARIABLE 
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FORTRAN  IV 


VOIC-03A 


0001 

0002 

0003 

0004 

OOOS 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0024 

0025  27 

0026 

0027 

0028 

0030 

0031  25 

0032 

0033 

0034 

0035 


SUBROUTINE  NlNIITK{Cl.H6,CUH7>TI*'tiITY“F) 
InTECER*2  CU«6,CUh7,0CT(17)  .Tl**t 
DATA  OCT (17)  /■ 177777  / 

DATA  OCT (16)  /"IOCiOOO  / 

DAI A  OCT (15)  /"40000/ 

DATA  0CTU4)  /"20000/ 

DATA  OCT (13)  /M0000/ 

DATA  OCT (12)  /• 4000/ 

DATA  OCT(ll)  /"2000/ 

DATA  OCT(IO)  /"1000/ 

DATA  0CT(9 )  /"40O/ 

DATA  OCT (8 )  /*200/ 

DATA  OCT(  7 )  /"lOO/ 

OATA  OCT (6 )  /*40/ 

DATA  OCT ( 5 )  /*20/ 

DATA  OCT ( 4  )  /«1C/ 

OATA  OCT ( 3 )  /"4/ 

OATA  0CT(7)  /«2/ 

OATA  OCT(l)  /■ 1 / 

T I  ME*0 

1 A*C0R7 . AnD.OCI ( 1 ) 

IK(IA.U.O)  00  TO  27 
TIRfc •!  l*,E«OR.OCn  15) 

CONTINUE 
DO  25  1*3.16 
1  A*CURt . AmO.OCI < 1 ) 
lFUA.FO.U)  GO  TO  25 
TTNE*TI»r.OR.OCl (1-2) 

CONTINUE 

ITYMF*(40./h0.)»TI*F 
TINE  *<4./60.)*Tm 
RETHR’I 

fciif) 


FCKTRAK 

IV 

STORAGE  *AP 

NAME 

OFFSET 

ATTPloUTKS 

OCT 

000024 

Integer *2 

Ann  A  Y  (17) 

COR  6 

000014 

integer *2 

PAPAMETf  P 

VARIABLE 

CURT 

000016 

I nTEGER»2 

pananetfr 

VAR  I ABLf 

TIME 

000020 

I NTFG*  R*2 

PApAmEIFP 

VAR1 APLR 

ITYME 

0O0O22 

IM  EGtH*2 

PARAMETER 

variable 

IA 

000066 

I NTEGER • 2 

*ARl APLE 

I 

000070 

I nTEGEH  *  2 

VAPlAftlt 
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FORTRAN  IV 


VOlC-OJA 


1 


OOOl 

SUBROUTINE  TIBER  (IUSFR.lRtC6(JRFC7,TI“t) 

0003 

CO*nl)n  /SUM/F11nE,1C0 

000) 

CONNOR  /OPTION/IOPT 

0004 

COMMON  /TYPfcl/  JTlNE.JTlRt.GTlK  ,Jcn,t.Tl<'F 

0005 

intec;fr»7  st(20*gt]*f 

0006 

IwTCCEF *2  riNt.FTl*»k  148)  ,1CC146)  .ETlfF  .TN0C70) 

0007 

LOGICAL*  1  lNFC6,IRFC7,FLC.<2l) 

0008 

DATA  INO  /20*0/ 

0009 

DATA  1HEX  /O/ 

0010 

DATA  LTI*E  /600 / 

0011 

DATA  F f  IMF  /48*0/ 

0012 

DATA  ICO  /48*0/ 

0013 

OATA  ST  /20*-l/ 

0014 

DATA  FLO  /20*0/ 

0015 

I H* (TINE/600)  *1 *1 HF  X 

0016 

tTI«E«TI*<fc/600 

0017 

JTUtKTlRE  -600*ITIMF)/U. 

0018 

«T1"F*TI*£-L1IHF. 

0019 

1F(T1"E.LT.600.AND.KT1NE.L1.0)1hFX*24 

0021 

IF( T1NF.LT.600. ANO. MlMF.lT. 0)8 71  NFS* TI^E* 14400 

0023 

1F(kII«E.LT.«OO.AND.h1  tf+t.GF.O)  Gu  TO  900 

C 

BREAK  IN  CONTINUITY 

0035 

00  901  IUSl  ,2u 

0026 

ST(  ll»)»-l 

0027 

lND(tl))«0 

0028 

901 

continue 

0029 

lF(KriNE.LT.0)lHEXa2N 

0031 

900 

CONTINUE 

0032 

LTl-EaTINE 

C 

LInF  BECOMES  ACTIVE 

9033 

IK  1HEC7.E0.5)  GO  7 o  23 

0035 

IF(Inu(IUSF.R).CT.O)  GO  TO  79 

0037 

FLG( I USER )alHFC7 

003* 

RETURN 

0039 

79 

CUNU  Nil  t 

C 

ACTIVE  LINE 

0040 

1F(FLG(MSFR).E0.5.ANC.1KEC7.FQ.h)  GO  TO  800 

0042 

I  F(F  LG  ( 1IISFR I  .  NF .6 .  AND.  IHFC7  . EM .6 )GU  TO  33 

0044 

FlG(IiJSEP)*IREC7 

0045 

RETJPN 

c 

SUBROUTINE  STAHT 

0046 

23 

ST ( 1USFH )*TINE 

0047 

FLG(lU5E“)*tREC7 

004* 

1  NO ( luSER )*1 

0049 

RETURN 

C 

SUBROUTINE  FINISH 

0050 

3) 

GT  I  RF«T1nE»S7 ( 1USF  N ) 

0051 

IFJGTlNl  .LT.O.ANO. TIFF.  1.7 .600)  GT1  WF  *GT I *€♦ 1 4400 

0053 

FT I *E ( I M )*CTI NE*FTI R  F  ( 1 H ) 

0054 

ICP(IH)«IC0(1H)*1 

0055 

ETI-E*FTINE(IH)/1C0(IH) 

0056 

FLttl IUSFR )«XHEC7 

0057 

JCO«ICO(IH) 

005* 

JOPT«IOPT.ANP. 1 

0059 

IF( JOPT.LE.O)  CO  TO  800 

0061 

CALL  TYPFR  ( lUSER ) 

0062 

800 

CONTINUE 

0063 

76 

FOR«ATMX,I?,'j  *,12,417) 

0064 

ST(luSEH)s-l 

0065 

INI)  ( I  USE  P  )«0 

0066 

RFTUHN 

0067 

FNO 

I 
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FORTRAN  IV  STORAGE  .MAP 

NAME  OFFSET  ATTRIBUTES 

ST  000O24  INTEGERS  ARRAY  (70) 

IND  000074  INTEGfcR*2  ARRAY  (20) 

FLG  (>00144  LOGICAL*  1  ARRAY  (2(<) 

I USER  000U14  InTFGFR*2  RARA»F(M-  VARIAHLE 

IRECA  OOOOlh  LOGICAL*]  PARAFKU.R  VARIABLE 

IREC7  000020  LOGICAL*!  PAR ARE  TR  h  VARIABLE 

TIRE  000022  INTEGF.R*2  PARAHFIRP  VARIABLE 

IHEX  000170  IRTEGFP*2  V  AR I  AR'LE 

LTIRF  000172  I  NT EGER  *2  VARIABLE 

IH  000210  InTFGFR*2  variable 

KTIRE  000212  INTEGEP*2  VAR1ARLE 

IU  000214  1NTEGER*2  VARIABLE 

JOPT  0P021 h  INTEGER*2  VARIABLE 

TYPER  OOOOOO  R  E AL*  4  PROCEDURE 


COMMON  BLOCK  /SUM/  LENGTH  00C300 

rTiMt  oooooo  i ntfgfh * 2  array  car) 

ICO  000140  I NTEGFR*2  ARhAY  (4R) 

CONnON  BLOCK  /OPIION/  LENGTH  000002 

IOPT  OOoOOO  INTEGEfi*2  VARIABLE 

COMMON  BLOCK  /TYPC1 /  LENGTH  000012 

ITIME  OOOOOO  1 nTV  GER*2  VARIABLE 

JTIME  000002  lNTCG»o*2  VARIABLE 

GTIKF  000004  I’(TEGER*2  VARIABLE 

JCO  OOOOOh  I iVTEGF* *2  VARlARIt 

ETIBE  000010  I N  f EGER • 2  VARIABLE 


48 


FORTRAN  IV 


V01C-03A 


OOOl 

S"ftRGUT]4f:  LOCOUUSEE  .JJREC  .  181  C  ) 

0002 

CU*,J0“  /OPTlUN/  IOPT 

0003 

COFNUN  /FNT5/FN11 ,EnT?,EN13 

0004 

CO***UN  /TTPE2/  COOT! 

0009 

INTEGER*?  COUNT  (20).FE*T4(20) 

0006 

Lni;iCAU»l  1REC164)  , PP,K*  ,AA,ZZ,S1,ASH 

0007 

LOGICAL* 1  ENT1  (20,10)  .tr«T2(2n,  10)  ,tNT 3(20,10)  ,E,L 

0008 

LOGICAL*!  LfNTl,LENT2,LENT3 

0009 

DATA  ENT4  /20*0/ 

0010 

OAT A  PP  /*P'/ 

001  1 

DATA  81.  /'  '/ 

0012 

DATA  M  /•«•/ 

0013 

DATA  AA  /'*'/ 

0014 

DATA  ZZ  / ' 7 1 / 

0015 

DATA  SLASH  /*057/ 

0016 

lF(TBtC(7).Ne.5J  GO  TP  199 

0018 

DO  «9  1VVS1 .10 

0019 

E'NT  1  (I  USER  #  IV  V}*61. 

0020 

ENT2(ltlSfcP,lVV)«bl. 

0021 

F.NT3(  lUStR  .  IVV  )sP| 

0022 

99 

CONTI  Mil. 

0023 

ENT  4 ( lUStR )*0 

0024 

199 

continue 

002b 

lF(IPFC(61.Nt.l.A'U/.IREC(6).NE.b)  PEIURn 

0027 

IF  (I  PEC! INJ.Nf .PP.ANL.1RLC! 171  .Nt.PP)PFTU»(. 

0029 

1F(  IrEC(17).NE.R*i.AM  .1«IC<1»).N£.*«A)RETURN 

0031 

COUNT! IUSER)*9 

0032 

78 

FOR*  AT  (  *  HtCORO  LOCr.  '  ,  27A1  ) 

C 

TYPr  78  .  (  14  EC  (IJl.II'sl  5  «J JR EC  ) 

0033 

JKL«18 

0034 

IF(IRErU»).EO.*R)  lRl,*l  9 

0036 

1**1*ENT4(XUSER) 

0037 

89 

CO'JTIMIF 

0038 

IF(IV.GT.IO)  IV*10 

C 

TYPE  79.COUHT! IUSF'M  , I PEC! IAL*4) 

0040 

79 

FfIR*  AT  !  '  COUNT  F  *,15,07) 

0041 

DO  97  IUM.3 

0042 

KL*IKL+IU 

0043 

IF  (lP£C(«L).GT.Z2.0F.l*tC(AL).L1 .Aajfftukn 

0045 

97 

CONTINUE 

0046 

JOPT*IOPT.ANU.4 

0047 

IF! JOPT.LF.O)  GO  TO  67 

0049 

LENT1*|REC(1KL*1 ) 

0050 

LEI»T?*1KEC(I*L*2) 

0051 

I.ENT3*IR£C(IKL*3) 

0052 

CALL  LOC»T  (LFMTl  ,i,M<T2  ,Lt  E-T3  ) 

0053 

87 

CONTINUE 

0054 

J0PT«I0PT.AtiP.2 

0055 

IF  (JOPT.LE.U)GO  TO  66 

0057 

tsri  i  ii)ser,iv)»ike;C!  iEL+n 

0058 

ENT2( IUSf.N  ,  1 V  )»IRFC(  1FL*2  ) 

0059 

£NT3<IUSEH,1V)*1REC(1aL«3) 

0060 

ENT  4 ( 1  USER ) *1 V 

0061 

86 

CONTINUE 

0062 

COUNT (I USER )«CUUNT( I USE P)*l 

0063 

1F(  IRE  C  (  T*<L*4  )  .Nt.SLASfDRE  TURN 

0065 

IVNlVtl 

0066 

IKL«IFL*4 

0067 

GO  TL  89 

0068 

PFTUPN 

0064 

END 
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FOPTHAN 

IV 

51 OPACE  «»P 

HAKE 

UFE'SEI 

A1TK I  HI'  It'S 

ENT4 

000022 

intfgf a*2 

APPAY  (20) 

IPEC 

0 0  0  2  0 

LOGICAL* 1 

PARAMETER 

APPAY  (64) 

IUSEP 

O' 00| 4 

I  HI E'GEP*2 

PARAMETER 

VAfil  ABLE 

JJREC 

UOCOIH 

1n1eGER»2 

papametep 

V AhlAPLE 

PP 

00P072 

L0GTCAL*1 

VAfil ABLE 

MM 

0U0074 

LOGICAL*  1 

VARIABLE 

AA 

PP0C75 

LCG1CAL* 1 

variable 

Zl 

000076 

LOGICAL*! 

VARIABLE 

SLASH 

000077 

LuGICAL*! 

V API Aei  F 

PL 

00007 J 

LULICaL*! 

V  API AHLE 

LEHT1 

OOo! 70 

LOGICAL*! 

VARIABLE 

LEHT2 

000171 

loli cal*  i 

VAPI ARLt 

LEMT3 

000172 

L0G1CAL*1 

VARIABLE 

1VV' 

000174 

1 U  TEGfcP  *  2 

VARIABLE 

IKL 

00  0 1 7o 

1NTFG£R*2 

VAPI  Ad|.F 

IV 

00O2P0 

I  NTFCFp*2 

VAPI API f 

IU 

000202 

I 1TEG*P*2 

V  Ah  1  A ALE 

KL 

000204 

InTEGEh*2 

variable: 

JOPT 

000206 

INTFG£P*2 

VARIABLE 

LOCA1 

000000 

l*'1EGE.R*2 

PPOCELl'PF 

COMMON 

BLOCK  /OPTION/  LENGTH  000(02 

IOPT 

000000 

lNTEGtP*2 

VARIABLE 

COMMON 

BLOC*  /KN1!>/  LE 

NGTH  001130 

EMTt 

ENJ2 

ENT3 

000000 

000310 

000620 

LOGICAL*! 
LGGIC4L*  1 
LOGICAL*! 

APPAY  (2H,10) 
APR*Y  (20,10) 
ARRAY  (?0,1(.) 

vpci oprn 
vfct(iPe:i> 
vectlpeh 

COMMON 

BLOCK  /TYPE2/  LENGTH  OOOOSl' 

COUNT 

000000 

I NTEGfcP  *7 

APPAY  (20) 

so 


FORTRAN  1 V 


V01C-03A 


OOOl 

0007 

0003 

0004 

0005 

0000 

0007 

OOOP 

0000 

0010 

ooii 

0012 

0014 

0015 

0016 

0017  40« 

0018 


0019 

0020  76 

0021  7R« 

0022  766 


0023 

0024 


SOfekOUT  1  NE  TYPE*-  ( I  I'Sk  P  ) 

CONDON  /IHTS/  FNTl,t»T2.F:M3 
CONNON  /TYP£7/Tl*ttX,FKACT 
CU««Ow  ZSP £Cl/  I5PRC  (70,12) 

C0660F  /trPE3/  fti.sai.fm 
00*0*  /TYPE?/COU*T 

CO*"*CiN  /TYPEl/lTlME,JTl*t,Grm, JCU,FTI<»E 

mtGER*2  fRACT(19),TlPt*(19.20J,  FTI  (  20)  ,SAI  (  20  )  ,FLI(  ?/. ) 
UTEGER*2  GTI“6 , JCO , ETIPt , COOT ( 20) .LINK 
LOGICAL*!  EMT1  (20,10),ENT2<20,1G),ENT3(20,10> 

DAT*  LINE  /45/ 

If C  LlNE.LT. 40)  GO  TO  900 
PRINT  -INN, 

PHI  NT  788, 

LINE*? 

CONTINUE 

Ph  1  *T  76,ITl**P  ,JTlB£.LUl>NT(tVISEP) 

1  ,5*1  <  1  USER  ),  FTI  ( I  USER  ),FL>I<1  USER)  ,GTI**E,T1BEX 

2  C1,TI>SFP),T1"£X(2,XUS£R), 

2  Tl"F  M14.IUSEH)  ,1 1REX<  16,1 USER  5 , TIREX ( 1 9 , 1  USER )  . 
7I5PHC(Il>SkH,3).lSl'RC(lLSE8,4)alSP8C(lUSER,b)iISPPC(Tl  5Fk.Nl 
8.1SPRCCIUSER.7) , 1SPRC ( 1 USFP ,5) 

5  , ( (E*T1 (1USFH.IV ),FM?(IUSFR,IV) ,ENT3(  lU5bk.1V)) ,1V  =  1 ,10) 

L1M  *  LINE  ♦) 

FOP 4ATMX.12. • S • ,I2.2X,4I4,5X,615,4X.6I5,10(3A1,1X)) 

F0HKA7  (  •  1GNT*  ,3X,SX,  •CUMf.'l  •  .6X.20X  ,  •  n*FS  (0.1  *  l  N  ) 1  , 

11  OX,*  COUNT  5PFC.  FACT*) 

FORPAT (IX*  TI-K* ,2X, *LUC  SA  FI 
1  GF  '  ,  5X ,  *  TI«F  OVEh  Ll'C  S*  FT  C.F  *,4X, 

, • STOP  GO  PP1  DEL  JPF  HEG  LOC  Id  hFOUESTFO  *) 

RETURN 

EnD 


FORTRAN  IV 


SIPRAol  MAR 


MARE 

OR R SET 

ATTRIBUTES 

IUSER 

000014 

IMEGER*2 

parameter  variable 

LINE 

000016 

INTI GER*2 

VARIABLE 

IV 

000442 

INTEGER *2 

VAHtAbLE 

COMMON 

BLOCK  /EM  5/  LENGTH  001130 

CNT1 

000000 

LOGICAL*! 

ARRAY  (20,10) 

VlCTOPltt 

ENT2 

00031 0 

L0GICAL*1 

ARRAY  (20,10) 

VFC'lORR.u 

ENT3 

000620 

LOGICAL*! 

ARRAY  (20,10) 

VECT('PFl) 

COMMON 

BLOCK  /TYPE7/  LENGTH  0ol43e 

TIMEX 

0O0000 

INTEGER*2 

ARRAY  (14.20) 

VEflURRI, 

ERACT 

001370 

1 nTEGEH*  2 

ARRAY  (14) 

Common 

BLOCK  /SPCC1/  LENGTH  000740 

ISPRC 

000000 

INTEGER* 2 

ARRAY  (20,12) 

VRCTGRED 

COMMON 

BLOCK  /TYPE3/  LENGTH  000170 

ETI 

000000 

I RTEGtR*  2 

ARRAY  (20) 

SAX 

000060 

I«TEGts*2 

ARRAY  (20) 

F01 

000120 

INTEGER* 2 

ARRAY  (20) 

COMMON 

BLOCK  /TYPE2/  LENGTH  OOttOJO 

COUNT 

OOOOOO 

INTEGER *2 

ARRAY  (20) 

COMMON 

BLOCK  /TYRE  1 /  LENGTH  QO0O12 

ITIMF 

0O00U0 

1 N1 EGKR*2 

VARIABLE 

JTIMl 

000002 

IMtGt»«2 

variable 

gtime 

000004 

1MEGRR»2 

variable 

JCO 

000006 

I Nl EuEB*  2 

VARIABI  E 

ETI  Ml 

000010 

I NTF  OR  R  *  2 

VARIABLE 
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FORTRAN  IV 

vnic-03* 

0001 

SUFBOUTInF  RF.  PU»T(  1  U6f  r  •  JJfctC «  J  *<►  C  ) 

0002 

co*«»u6  /tipes/fti ,sai ,fm 

0003 

CU**“DN  /RFPTI/COUML 

0004 

I NTEGEH  * 2  COUWTLt  20 ) 

0005 

1 NT  EGf R*2  FTM20)  ,SA1  (20)  ,FOI  (20) 

0006 

LOGICAL*  1  I8kC(64)<FF>SS»TT»AAfCl>*k'I«SA«  FP » A  EC^  (  20 ) 

0007 

DATA  Ft 1  /20*0/ 

0008 

oat  a  s a i  /20*o/ 

0009 

DATA  Fl)T  /20»0/ 

0010 

DATA  RFC6  /20»0/ 

0011 

OAfA  FT  / 1 5/ 

0012 

DATA  SA  / 1 3/ 

0013 

DATA  FP  /I 8/ 

0014 

PAT  A  FF  /  •  F  •  / 

0015 

DATA  SS  /•$'/ 

0016 

DATA  TT  /'ft 

0017 

DATA  AA  /‘A*/ 

0018 

DATA  DP  /'O'/ 

0019 

1F(1REC(7).E0.5)  GO  Tf  100 

0021 

IFlR£C6(IUSFK).FU.lNFC(6))  RF  TURK 

0023 

RCC6(7U?F»)«IRtC(6) 

0024 

IF(IHtC(16).ML.FF.AM;.lRFC(17).ME.pF)GO  TO  300 

0026 

t*  ( I  PEC (17).NE.TT.ANP. 1  RFC (  1  R ) .► F .TT)  CO  To  300 

0028 

I F  (  1  RFC  ( 6  )  .  to  .  FT  )Fll(luStP)*HI(IU!>ER)*COll|«TL(IUJ.rP) 

0030 

300 

CONTINUE 

0031 

7F(lRFC(l6).NF.SS.A»P.lhEt (17).NF.SS)  GO  TO  200 

0033 

IKUFCmi.Nt.AA.ANn.JRECORl.hfc.AA)  GO  Tti  200 

0035 

TF(IRtC(6).E»).5A)SAl  (10SEF)«SAI(lUS»:R)*rOUNTL(jnSER) 

0037 

200 

COMT1NUF 

0038 

lF(IPeCl16).6E.FF.AfiL.lFEC(l7).Nt.FF)NET1IHl- 

0040 

IF(IPFC(l7).N£.0U.AND«JRtC{lP).F  E .DP ) RETURN 

0042 

1F(  IHEC(6).EO.FD)Ful  UUStF  )sFPl  (  1  USE*  )  ♦CU'IM  U ( I USER  ) 

0044 

NET  URN 

0045 

100 

CONTINUE 

0046 

FT1  (TUSER)sO 

0047 

SA1 ( IUS£R )*0 

0048 

FOI ( 1  USER )»0 

0049 

RETURN 

0050 

END 

S3 


i 

ii 


T  ORTRAf. 

IV 

STORAGE  * 

AK 

NAME 

offset 

ATTRIBUTES 

IRFC 

000020 

logical  » i 

PARAMETER 

ARRAY  (fa4) 

ace* 

Of  0022 

logical*! 

ABB AY  (20) 

iuser 

000014 

I ATtGt  B*  2 

BAR  A**F7  F  R 

VARIABLE 

j  jret 

no  0016 

I aTEGF  w*2 

PARAMETER 

VARIABLE 

rr 

000051 

LOGICAL*! 

VARIABLE 

ss 

000052 

LOGICAL*! 

VABlABI F 

TT 

00005J 

LOGICAL*! 

VARIABLE 

AA 

000054 

LOGICAL*! 

VAP  I  AMI  * 

DO 

000055 

LOGICAL* 1 

variable 

FT 

000046 

LOGICAL*! 

V  API  AbLF 

SA 

000047 

LOGICAL*! 

VAH1ARLF 

ro 

OOoObO 

!  OGICALM 

V  A  P  I  A  bl  F. 

COPROA 

BLOCK  LF.aGTH 

000170 

rti 

OOoOOO 

IRTFGFP*2 

ARRAY 

(20) 

SAI 

0«O050 

I*TFGFB*2 

ARRAY 

(?f>) 

F01 

000120 

I*'TEGEP*2 

ARRAY 

(2«' ) 

CO*“ON  bLOCn  /RFHT1/  LFNGIri  000t>50 
COONTL  OOOOOO  IWTEGLH’2  ARRAi  (20) 


| 

[  * 


[' 

i 

\ 

! 


i 
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fortr*'-  iv 


V*tC-OJA 


0001  SORROUT1NF  MORE!  IUSFP  » JJFF  C«  IPF.C ) 

0002  COnnon  /TYPE2/C01IM 

0003  CO«MOl»  /PFPT1/C0UNTL 

0004  1NTEGEP*?  IMC120)  .COl'f  T(2(-),COUhU,(20)  ,C0Uf'T"(2u) 

0005  LOGICAL*l  IRtC(b4) 

0006  DATA  COURT*  /20*fl/ 

0007  DATA  I HC  /20*0/ 

0000  DATA  COU'OL  /20*0/ 

0009  1F(1RFC(7).E0.S)  GO  1C  100 

0011  IF(lREC(6).Nf  .l.*ND.IPF.C(b).l«F.5YGCl  TO  700 

0013  lF(tHC(I'ISFR)  .  LE  .  0  )GO  TO  200 

0015  C0U«TM<1US£R)«  COlIM  R  1 1  ll5l  h  )  ♦COUNTL (  I USFR  ) 

0016  CflUNTL (  IUSEP )»0 

0017  2oO  CONTINUE 

0018  1HCU05FM)«<> 

0019  IF  (COUNT  (  IUSER  l.GT.COuMLl  I  USES  )  )  CUOfiTL  (  IU5FP  )*COUl  1  (  Tl'RF  H  ) 

0021  COUNT! IUSER )•  COUNT  * ! 1 OSEF  )  *  COUNT  L 1 1 USKH  ) 

0022  RE  TORN 

0023  700  CONTINUE 

0024  IRC ( IUSER )•! 

0025  COUNT!  IUSER  ImCOIinT*-  (  I USER  ) ♦COUnTI  (  IUSER ) 

0026  RETURN 

0027  100  COUNT*"  ( lUSt'R  )»0 

002R  COUML! I USER  1*0 

0029  COUNT  (1USO)>0 

0030  I RC ( I  US*  R  *0 

0031  RFTi'R*. 

0032  E»f> 


FORTRAN  IV  STORAGE  *AP 

NAME  OFFSET  ATTrImuTES 

INC  000022  I  NTEGF  R*2  ARRAY  (20) 

COUNT*  ouuo72  I RTF Gi  N  •  3  ARRAY  !20) 

1REC  000020  LOGICAL*!  PAR A»F'Tf R  ARRAY  (F«) 
IUSCR  000014  1nTEGER*2  PAR A»CTl •  VARIABLE 

JJREC  UU0016  1 R TEGER •  2  PARAMETER  VARIABLE 


COMMON  BLOCK  /TYPE?/  LENGTH  OOuObO 

count  oouooo  integer*!  array  ( 20 > 
Common  block  /Repti/  length  000050 


COUNT L  oonooo  TNTFGCR*2  ARRAY  (20) 


FORTRAN  IV 


VU1C-03A 


0001 

S'lHLOllTlNF  KtYTlTlME  ,lRAC6,lAbC7,l>ISF») 

0002 

COMMON  /TYPE7/1IMFK  ,FPAC1 

0003 

INTEGFR*2  TI«E,KEYM  19)  ,kEYU(2«),  ll<<FK  ( 1  9, 20)  ,FhACT  t  1  V  )  ,61  C?o) 
1  »SE(20),ITIMF(20),IHC(?0) 

0004 

LOGICAL* 1  lRECb,l«FC7 

0005 

OA  f  A  SI  /20*0/ 

0006 

DATA  THC  /20*0/ 

0007 

DATA  1 XY2  /977/ 

0008 

PATA  Sh  /20*0/ 

0009 

DATAKKYU  /20*18/ 

0010 

PATA  1RACT  /19»0/ 

0011 

DATA  IT1««E  /20*0/ 

0012 

ir(XXYZ.NE.977)  CO  TO  977 

0014 

00  200  J  Us ]  ,19 

0015 

DO  201  JUS 1,20 

0016 

TT*»FMlU,JU)*0 

0017 

201 

CONTINUE 

0018 

6FYiai')*lU 

0019 

200 

CONTINUE 

0020 

AFT  1 (6)*2 

0021 

KEY  1 ( 1 8 )sl 9 

0022 

K  t Y 1 ( 1 7 )s  19 

0023 

977 

CONTINUE 

0024 

1XYZ«0 

0025 

IFW»EC7.*F.5)  GO  TO  300 

0027 

IHCIIUSER )»2 

0028 

SE( IUSFP)*T1NE 

0029 

ST ( 1  USE  F ) «TI  *E 

0030 

IT1*I(IUSER)«0 

0031 

no  301  1 U* 1,19 

0032 

F»ACT  OU)*FRACTUU)*T1nF>  (lU.IUSEf ) 

0033 

TIMEMHJ.lUSm)«0 

0034 

301 

COnTJMIE 

0035 

300 

IF<IHCaUSER).LF  .0)  PETI'nn 

0037 

IF(lFFC7.E0.b>  IHC(1USFS)*0 

0039 

SF(IUStF)*Tl»*t 

0040 

KFY«1KFC6*1 

0041 

KEIJsFEYKFEY  ) 

0042 

IF(kFYJ.FO.  3  .Of  .KEYJ.F0.5)KFYU«KFfua0SFM) 

0044 

I T 1 “F ( 1 USER >»Si C 1 USF  P ) -SI (  1  USE X) 

0045 

IFCITI^FI  HISFN)  .LT.O)lTl*>EauSE»)«n 

00«7 

IFlKtYJ.NE.KEYl (IMSM-) )  CO  TV  loo 

0049 

IF(  lBFC7.ro. 6)  CO  TC.  100 

0051 

RETufis 

0052 

100 

KEYL  SHE  YU (  U'SEP ) 

0053 

ri-FMKEYl. ,  I  USER  )sTJNFK(AEYL,lUStR)*I  ri  ME  (I  USER) 

0054 

IT1 Mb ( I USER ) so 

0055 

ST(IUSEM)»SE(  JI'SlM) 

0056 

KFYUUUSlK)»*EYJ 

0057 

BET  Unn 

0056 

END 

56 


FORTRAN 

IV 

STORAGE  *AR 

NAME 

OFFSET 

ATTRIBUTES 

KEYI 

000024 

INTEGER* 2 

ARRAY 

(19) 

KCVU 

UO0072 

InTR'GE  R*2 

ARRAY 

(20) 

ST 

000142 

I.JTf  GFR*2 

Array 

(20) 

SC 

000212 

I4TEGER42 

ARRAY 

(2u) 

ITIHC 

000262 

INTEGER*2 

ARRAY 

(20) 

INC 

000332 

INTEGER*? 

ARRAY 

(20) 

TI«£ 

000014 

1 NTFGfcR • 2 

PARARFTFR  VARIABLE 

IREC6 

000016 

L0G1CALM 

PARAMETER  VARIABLE 

IREC7 

000020 

L0GICAL*1 

PARAMETER  VARlAfaLF 

I  USER 

000022 

1NTECER«2 

PARAMETER  VARIABLE 

rxrz 

00040? 

I.vTCC£R*2 

VAPJAblF 

1U 

000454 

1  VTEC.eo*2 

V  AR I  ABLE. 

JU 

000456 

1 NTEGE  R*2 

variable 

KEY 

000460 

InTFGER*2 

variable 

KEYJ 

000462 

1nTeGER*2 

variable 

KCYL 

000464 

Integer*? 

VARIABLE 

CO««Ofc  BLOCK  /TYPE7/  LENGTH  001436 

TIRfcR  oOOOoo  INTEGER *2  ARRAY  (19, 2D  VECTORED 

FRACT  001370  l.VTFGER«2  ARRAY  (191 


57 


FORTRAN  IV 


V01C-03A 


0001 

SUBROUTINE  ST*TUS(  lust  k,nKM,mc7  ) 

0002 

CO*RON  /SPFC1/ISPSC(20,12) 

0003 

LOGICAL*!  IREC3,Ni*,GO.iRlC7 

0004 

0*7  A  GO  /99/ 

0005 

DATA  Ml*  / *40/ 

000* 

IF (GO ,NC .99)  GO  TO  120 

oooa 

00  >7  lUsl.20 

0009 

DO  HR  JU*1 ,12 

0010 

ISPHC(1U,J0)«0 

0011 

68 

CONTINUE 

0012 

87 

CONTINUE 

0013 

G0«789 

0014 

120 

CONTINUE 

0015 

I V  AL«1PFC  3"**  1  N  ♦  1 

0016 

IMTVAL.LT.1.0P.IVAL.CT.12)  <«0  TO  900 

oom 

I5p«C( I USER , I V AL )*1SRRC (lliStk,JVAl)»l 

0019 

900 

CONUNUF 

0020 

IF  (  IREC7  ,  F.O.  5  )  GO  TO  100 

0022 

RETURN 

0023 

100 

CONTINUE 

0024 

DO  23  IU*1  ,12 

0025 

ISPRC ( I USEK , 1 U  1*0 

0026 

23 

CONTINUE 

0027 

RETURN 

002R 

F*n 

FORTRAN 

IV 

STORAGE  »AP 

BARE 

OFFSET 

ATTRIBUTES 

IUSER 

004014 

INTEGFH*2 

parametkp 

VARIABLE 

IREC3 

000016 

LOGICAL*! 

PARAMETER 

variable. 

IREC7 

0404?4 

LOGICAL*! 

PARAMETER 

variable. 

MIN 

000023 

LOGICAL* 1 

VARIABlE 

GO 

000022 

LOGICAL*! 

V  A  PI  AMI  E. 

IU 

000054 

INTEGER*! 

VARIAMLF 

JU 

000056 

INTEGER*! 

VARIABLE 

I VAL 

000060 

1NTEGFP*2 

VARIABLE 

CORRON  BLOCK  /SPECl/  LKNGTB  000740 

I&PRC  000000  INTFGFR*2  ARRAI  (70,12)  VFCTliRKP 


FORTRAN  IV 

V  0 1 C “0  3 A 

0001 

SUBROUTINE  Ll'CAl  CENT!  ,1HM“T)) 

0002 

CO»«On  /«ALOC/  Lnc«,M'C 

0003 

1n1EGFR*2  1-004(400) 

0004 

LOGICAL*  1  LDC(3«400)  .* M 1 *FNT?.k M  » 

0005 

DATA  NLOC  /O / 

0006 

IF(NLC'C.LE.O)  GO  TO  10 

0008 

Do  1  1*1 , NLOC 

0009 

ML*  I 

0010 

IF(LOCd.I).eo.f.NTl)  GO  TO  100 

0017 

1 

CONTINUE 

0013 

10 

NLOC*NtOC*l 

0014 

L0C4(M,0C)*1 

0015 

L(JC4(NL0C*1)*“1 

0016 

LOCd .NLuC)*F» 11 

0017 

LOC  ( 2 ,  i»LOC )  *ENT2 

0016 

LOC(3,NLoC)*ENT3 

c 

PRINT  79,ENTl,tNT2,t'sT3 

0019 

79 

FORM  AT  (  '  LOCATION  ' , 3*1 ) 

0020 

RETURN 

0021 

100 

IF(LnC(2',NL),«E.ENT2,OR.IOC(3,ML).NM:.t  VTJ) 

0023 

LOC«(Nl )*L0C4(NL)  ♦  1 

0024 

RETURN 

***** 

E 

fortran 

IV 

STORAGE  NAB 

NA*E 

OFFSET 

ATTRIBUTES 

ENT1 

OouOl 4 

LOGICAL*! 

PARAMETER 

VARlAbLE 

CNT2 

000016 

LOGICAL*! 

paranetm. 

VAR  1 AHLt 

eN13 

000030 

L0GICAL*1 

PARAPETEN 

variable. 

9  LOC 

000072 

1NTEGFR*2 

VAPTAP.lK 

I 

000046 

1nTEGER*2 

VARIABLE 

NL 

000060 

I  NT  FGF  R*7 

variable 

COMOtt  BLOCK  /NALOC/  LF.NGTM  00372P 


LOC4 

toe 


OOOOOO  I«TEGEt»*2  ARRAY  (400 ) 
001440  LOGICAL* 1  ARRAY  (3,400) 


rQRTPAK  iv 

V01C-03A 

C 

04TF  OrC.  17,1979  SKIT  Tr  MTRK  STATC.rr.R 

0001 

SUOROUTInC  ERROR  ( GRFC  ,*L1 , 1  EkP  ) 

0003 

lugical*i  tpreifeo 

000} 

DATA  Rt«H/f  /-14/ 

0004 

IFtLkFCl 1 ) .EO.KluUt  )  GO  10  HO 

0006 

KU«KLT»2 

0007 

tFRH*  IERR+1 

000* 

TYPE  76,LREC(l).l-PEe(2).U'FC(3),URFC(4) 

0009 

7R 

fURHATr*  ERROk  • ,415) 

0010 

RETURN 

0011 

fO 

irdfso.ti.flmn;  87,JtHH 

0013 

*7 

FOkRATC  THERE  here  *,15# *  ERRORS  AT  THIS 

00|4 

I  FRRxC 

001S 

RFTIIRR 

0016 

f«i|i 

FORTRAN 

IV 

STORAGE  **ar 

NAhE 

OFFSET 

ATTRIBUTES 

LREC 

KLI 

TERR 

KIN'JE 

000014 

000016 

000070 

000023 

L0C]rAL*l  PARAMETER 
1HTFGFP*2  PARAMEikR 
lNTF.r.FR*2  PARAMETER 
IhTFGER*?  VARIaPU 

ARRAY  (64) 

VAHIARLF 

VAHIAM.E 

60 


FORTRAN  IV 


V01C-03A 


0001 

000} 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

001S 

0016 

0017 

0019 

0020 

0022 

0023 

0024 

0025 

0026 

0028 

0029 

0030 

0031 

0032 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 


SUBROUTINE  SU“»AH 
CO«“ON  /OPTION/IOPT 

<*0»«0N  /TYPE7 /  TIMEX, FRACT 
C ONNIIN  /Sl'87/  KEYM 
COMMON  /SUN/FTIME.ICO 
1NTFGER42  FTJM£(48)  ,ICO<48)  ,*EY*<(4H) 

JNTECE  R*2S1CU,TIm£X(19,20) , ER ACT  1 1 9) 

PRINT  78. 

PPINT  77, 

77  FORMAT! •  HOUR  •,*  USERS  TIME  •  ,*  USERS  • 

888  F0HMA1C  •) 

78  FOR* AT  t  *  1  *  #  *  AVG.  SIMUL 

S1CO»0 

AT1ME«0. 

NKE  JM*0 
DO  89  JU*1,48 
1 F ( I  CO ( 1 Ul.UF.O)  GOTO  89 
ATI»E*ATI«L  ♦  FTIMMtU) 

IT (M8CYM.LT. RE YN<IU1)MKEY««REYM( 10) 

S1C0*S1C0+1C0(1U) 

ETtME»FTl ME(1U)/IC0(1U) 

FT1ME«ET1“E/10. 

Jll«IU-l 

IE(JU.GT.23)JU»JU-24 

PRINT  87 ,  JU .  ICO (  1U )  , ETI MF  ,KK >•>  ( 111 ) 

89  CONTINUE 

PTlMfCaxl T*E 

87  FORMAT (2X, 218, F8. 3.318) 

1F(S  CC.IE.O)  GO  TO  913 
AT IRE** TImE/SI CP 
ATl>»E  »ATIME/10. 

PRINT  868. 

PRINT  888, 

PRINT  888. 

PRINT  899,  S ICC ,ATI»t«NAFYE 

899  FORMAT (  •  T01AC  USERS  ',15,'  AVG.  TI-E  ',f&.3, 

1'  “A*.  SIMUU.  USERS  '.IS.*  FOR  U A 1  '  I 

MfRACT«0 

PPINT888, 

PRINT  888, 

PRINT  888, 

DU  765  1J>1,19 

ENACT (lJ)»FHACT(IJ)*ino./hTlME 
MFR AO  INFRACT  4FPACT ( lu  ) 

7A5  CONTINUE 

FA ACT ( I )*FR ACT ( 1 ) "RfR ACT  *IUO 
PRINT  900, 

900  FORMAT ( '  FRACTIONAL  %•) 

PRINT  901 ,FR ACT ( 1 ) 

901  FORMAT ( '  OVHR  *,15) 

PRINT  90? ,ERACT( 2) 

902  FOP“AT ( '  LOCI  O' ,15) 

PRINT  903,FRACT(14) 

903  FORMAT ( *  SA  ’,15) 

PRINT  904,FRACTO6) 

904  Form AT ( *  YT  *,I5) 

PRINT  905,FRACT(19) 

905  FORNAT(*  GF  *,15) 

RETURN 

913  CONTINUE 

ioptro 

PRINT  914, 

9(4  FOPMATI*  THERE  IS  NO  l/ATA  ON  THF  CHANNELS  CHUSEn') 
RETURN 
END 


FORTRAN  IV 


STORAGE  MAR 


NAME 

OFFSET 

ATT R I  BOTES 

Sicn 

000540 

INTf GER*2 

VARIABLE 

ATIME 

000542 

RE A  L*  4 

VAR 1 AHL 1 

MKEYM 

000546 

INTFGER‘2 

variable 

1U 

000550 

INTFGER  »  2 

VARIABLE 

ETIME 

000552 

REALM 

VARIABLE 

JU 

000556 

1  NT  EGER  »  2 

variable 

BTIMR 

000560 

RLAL*4 

variable 

NFRACT 

000564 

INTFGEP*2 

variable 

IJ 

000566 

1 NTEGER  *2 

variable 

CONMON  BLOCK  /OPTION /  LENGTH  000002 

IOPT  OOOOOO  II'TEGfcn*2  VARIABLE 

COMMON  BLOCK  /TYPE7/  LENGTH  001436 

TIMEX  OOOOOO  INTFGER»2  ARRAY  (10,2(0  VECTORED 
FRACT  001370  I NTF.(jEK«2  ARRAY  (19) 

COMMON  BLOCK  /  S  U  B  7  /  LENGTH  0LO140 

KEYM  OOOOOO  INTEGEP42  ARRAY  (46) 

COMMON  BLOCK  /&»••/  LENGTH  0003(0 

FT1 ME  OOOOOO  I >TE  GE  R  *2  ARRAY  (48) 

ICO  000140  lMEGt-R*2  ARRAY  (46) 


62 


FORTRAN  IV 


V01C-03A 


oom 

ooo? 

0003 

0004 

ooos 

OOOo 

0007 

0008 

0009 

0010 

0011 

001? 

0014 

0015 

0017 

0018 

0020 

0022 

0023 

0024 

0025  ?0 

0027 
0029 
0030 

0031  78 

0032 

0033 


SIIRKU0TX«E  luStV.TkVO  ,  I  RFC7 , 1 1  "F  ) 

C'j«M<i.\  /SIIH7/  KEY* 

I.*1EGFR*2  C0UN7 (46) .VEYM4P) .  T I  NK  ,  A  T 1 ,4t ,  1 HC  (  20  ) 
LOGICAL*!  IREC6 ,  IREC7 
1>ATA  KEY*  /48*0/ 

DAT*  1J  /!/ 

PA1 A  ATInF  /Ci/ 

PATA  COUNT  /4*»0/ 

0*1  A  ITtX  /O/ 

DATA  IHC  /20*0/ 

IT*(TlME/oO)  4 1 
Um.LT.lJ)ITEX«24 
ITalTvITEX 

JF(1T.GT.IJ)CIjUNT(JI  )*OLl'fcl  ( I J  ) 
t  Jan 

IK  lMCf IUSFP).GI.O)  CU  IP  20 
1  F( 1HEC7 • N£. 5 )  RETURN 
CUUNTOT)*  COUNT (  IT )  41 
IHC(IUSER)«1 
RE  r  u  p  ‘V 

IF  (COUNT  (II  l.GT.KFYMIT  ))  KFYM1T  »=CUUnT(1T) 

IF  (  I  ft  tC  7  .  N  E  ,  6  )  PtTuhf. 

COU NT  ( IT  ) aCOlINT  ( 1 T  ) - 1 

IhCUI'SrH)*0 

FCh*>AT(1X.2'i7) 

RETURN 

FNO 


FORTRAN 

IV 

STORAGE  NAF 

NANC 

OFFSET 

ATTRIBUTES 

COUNT 

00007  4 

INTFGEP»2 

ARRAY  (4V) 

IHC 

000164 

1 NTEGEP*  2 

AHRAJ  (20) 

IUSEH 

0000 1 4 

I vTtGER  *  2 

PAPANETl r 

VAM  AH  t 

IRFC8 

ooooie 

LOGICAL  *  1 

PARANFltR 

VAR] APLF 

IREC7 

000020 

LOGICAL*! 

PARANFTfR 

VAK1ANLF 

TINE 

000022 

INTEGFP*2 

PAPA-tlfcR 

variable 

ATINF 

00023N 

1nTFGEP*2 

VAP1 AfrLI 

JJ 

00o234 

IfTFGt»*2 

VARIANT 

ITtX 

000240 

1 NTkGkP  *2 

VAPIAbLt 

IT 

000260 

I  •vTEGFR*2 

VAR1 APLF 

CONNOR  KLOC*  /SUP 7 /  LFNG1 h  00014V 

KEY*  OOOOofl  li(TEGtP*2  ARRAY  (48) 
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FORTRAN  IV 


V01C-03A 


OOOl 

S1I9H0UTI*1?  *eAr>m<i;*Fc,jt'Et .eon 

cvps 

STATISTICS  PACK AGF 

0002 

INT£G€R*2  VCM  ,  PLA  ,CHAN  .COUNT  .RFC  (  32  )  ,  EOF 

0003 

LOGICAL*!  t*UFF<512)  ,LREC(H4)  ,CR 

0004 

LOGICAL*  1  PR,M«,SS,AA,EF ,71 .LO.lVtS.NU 

0005 

DATA  bLA  /O/ 

0006 

DATA  HU  /••)•/ 

0007 

OATA  PP/'H1/ 

0008 

DATA  mm  /•'•*/ 

0009 

DATA  SS  /'S'/ 

0010 

DATA  AA  /  •  A  1  / 

0011 

DATA  »F  /  •  F  * / 

0012 

OATA  TT  /'TV 

0013 

DATA  CP  /*D>/ 

0014 

OATA  IERP  /O/ 

0015 

DATA  LKL1  /O/ 

0016 

DATA  KL1  /51 2/ 

0017 

OATA  CPA H  /-!/ 

0018 

DATA  C»  /«15/ 

0019 

DATA  SLA  /O/ 

0020 

DAT  *  «0»T  /75o/ 

0021 

OATA  A  LI  /it  2/ 

0022 

OATA  COUNT  /O/ 

0023 

FOF*0 

cc 

TYPE  980  ,  JREC  ,F.OF 

0024 

•)<iO 

FORMAT ( 1 X , 51 7 ) 

C  IMI7TALI2E 

0025 

If (LALl.LT.O)  GO  10  20 

0027 

lF(riL*.Gl .0)  GC  TO  20 

0029 

call  opfnlp  (chan) 

C 

TYPE  9H0.KLI  ,8I.K  ,  JRt  AL> ,  l  A  LI  »  *61  *  ,CHA  ri 

0030 

CALL  1NIT  (KLl.bLA. DREAD, LKt.I,«f>LK. CHAN) 

C 

TYPE  9d0  ,KLi  ,  RLA  ,JRF  AD,  LAI-1  ,»Al>  ,CHA-. 

C 

GEi  NEXT  RECORD 

0031 

20 

COnTI NUF 

0032 

IF(bLR.GT.<bLA )  GO  TC  3U 

0034 

IF(aLI.GF .LKLI.ANC.bO.Gt.HHLF)  GO  TO  30 

00  36 

JP«CC»4 

C 

TYPE  980 ,  Li  »  BLN  »  JRFAI>  ,LA  LI  »  MA  l-A 

0037 

CALL  Pf-ADS  ILREC.JRAC.Atl ,JRf  *L>,6LA  ,CHA« ) 

0038 

1F( JREAO.LT.O)  GO  U  3d 

0040 

CALL  E»RUR(LRFC,ALI,IFPH) 

0041 

IF(HRR.GI. 30)00  TO  33 

0043 

IF(UR9.C.T.25.AHD.LAL1.L1.0)  Go  70  33 

0045 

IF(IEPR.GT.O)  GO  TO  2<> 

0047 

JREC»14-»LREC(3) 

0048 

CALL  READS  (LREC,  JREC  ,  KL1  ,  JREAU.ftLK  ,  CHAD) 

0049 

JR£C2*I4«JREC 

r 

PRIM  200.LRECU  ) , < LRFC < 10) , 1 U«I  ,JRFCZ) 

0060 

tP  (L«PC(  16), £9. Pf  .AK».l,l.tC(  17). E0.P*)L»EC(6)*5 

0052 

IF(LKFC(16).E9.SS.ANC.L8fcC(17).Fd.AA)  LRFC(6)*1 3 

0054 

1F(LREC(16).EQ.FF.ANC.LF f C< l7).tO.TT)  LREC(6)b15 

0056 

IF ( LMEC ( 16). EO.FF. AND. I.RFCl 17). FO. DU)  LREC(6)»18 

0059 

If(LR£C(l ) .67.20 ) LREC ( 1 )»LPEC( 1 )/ 1 0 

0060 

200 

FOROATC  LREC  *,4005) 

0061 

IF(JMEAD.LT.O)  GO  TO  30 

0063 

RETURN 

0064 

30 

CALL  CLOSER (JRAAL.CHAN, EOF ) 

0065 

RETURN 

0066 

33 

CONTINUE 

0467 

TYPE  34.  1ERR 

0069 

34 

FORMAT ( •  THERE  APE  *,15,*  O/HSFCUTlVk  ERRORS  •> 

0069 

TYPE  36, 

0070 

36 

FORMAT  (•  DU  YOU  MSH  TO  TERM  IF  A7F ,  TYPk  YES  HR  f.fc  •) 

0071 

ACCEPT  37, ms 

0072 

37 

f ORMAT(Al ) 

0073 

I F ( 1 Y ES .CO. NO )  GO  TP  20 

0075 

GO  TO  30 

0076 

END 

64 


FORTH** 

IV 

STORAGE  NAP 

NAME 

OF  r  SET 

ATTRIBUTES 

»cc 

000022 

I NTEGER*  2 

ARRAY  (32) 

Burr 

000122 

LOCICAL*! 

ARRAY  (512) 

unite 

000014 

LOGICAL*! 

PARAMETER 

ARRAY  (64) 

JREC 

000016 

!NTECtR*2 

parameter 

variable 

cor 

000020 

integer*; 

para**etfp 

variable 

•CRT 

001146 

INTEGF.«*2 

VARIABLE 

BLK 

001122 

I nTEGER*  2 

VARIABLE 

chan 

001142 

InTFGE«*2 

VARIABLE 

COUNT 

001150 

INTEGER*2 

VARIABLE 

CR 

001144 

LCGIC*L*1 

VARIABLE 

pp 

001125 

LOGICAL*! 

VARIABLE 

NN 

001126 

LOGI C  AL* 1 

VARIABLE 

as 

001127 

LOGICAL*! 

VARIABLE 

AA 

001130 

LUG  1  CAL* 1 

VARIABLE 

rr 

001131 

LOGICAL* 1 

VARIABLE 

TT 

001132 

LOGICAL*! 

VARIABLE 

OP 

001133 

LOGICAL*! 

variable 

irrs 

001326 

LOGICAL* 1 

VARIABLE 

NO 

001124 

LOGICAL*! 

VAR1A6LF 

IERR 

001134 

InTE  GeR  *7 

VARIABLE 

UK  LI 

001136 

InTEGeR*2 

VARIABLE 

KLI 

001140 

lNTrGER*2 

VARIABLE 

OPENER 

000000 

KEAL*4 

RROCE'.IORE 

INIT 

000000 

integer*; 

PROCEDURE 

JREAO 

001330 

1*TFGER*2 

VARIABLE 

NBLK 

001332 

lr*TFGFK*2 

variabi  F 

READS 

000000 

KEAL*4 

RROCEOUNE 

ERROR 

000000 

RE*  L*  4 

PwOCfcOlHt 

JRCCZ 

001  134 

1 NTEGER*  2 

variable 

CLOSER 

oooooo 

RE»I *4 

PROCtnURt 

45 


FORTRAN  IV 

V01C-03A 

0001 

SUHHUUT  i  ME  CLOSER (JR E AO  ,Ch AN  #KHK  ) 

0002 

INT£GE«*2  CHAN , EOF 

0003 

IF  (JREAD.LE.-2)ST0E  •  RkAl)  ERROR' 

OOOS 

r*JF«i 

0000 

CALL  CLOSFC(CHAN) 

0007 

1 *ifreec (Chan  ) 

0000 

RETURN 

0009 

tic 

FORTRAN 

Iv 

storage  HAP 

MAKE 

OFFSET 

ATTRlbUTES 

JRCAD 

000014 

1nTEGEK*2 

parameter 

VAkJAAl.E 

CHAN 

000016 

INTEGFRA2 

PARAMETER 

VARIABLE 

EOF 

000020 

INTEGER* 4 

PARAMETER 

VARIARLE 

CbOSKC 

000000 

R£AL*4 

PROCEDURE 

I 

000036 

InTEG£R*2 

VAR1ARLF 

IFREFC 

000000 

InT£G£R»2 

PROCEDURE 

66 


FORTRAN  IV 


VUIC-03A 


0001 

SUBROUT  iNi  RFAl'MLPtC,  JNFC.FI.I  .JREAf  .NLX.CHAl.) 

0002 

INTEGER*?  »CM  .FLK.ChAN, COUNT, »FC(  321 

0003 

LOGICAL*!  PUFF (91 2) ,I.NFC<64) ,C» 

0004 

DAI  A  ITT-!.  /O/ 

0005 

DATA  MPEC  /O/ 

0006 

DATA  CP  /"1 9/ 

0007 

DATA  RCNT  /Jib/ 

oooo 

PATA  COURT  /n/ 

0009 

NRECai 

C 

GST  NEXT  pfconp 

0010 

20 

isrc«5i2-tai 

0011 

*REC«1NEC 

0012 

IFC1BEC.GT.JRFC)  ANtCajKFC 

0014 

too 

FORMAT (1X.7I9) 

0019 

30 

CONTINUE 

0016 

IF(KcFC.LC.O)  Go  TO  94 

0016 

97 

FOR* AT ( '  OU  LOOP' ) 

0019 

00  39  laNRF.C.KREC 

0020 

KLT«KLI«1 

0021 

IFII.GT.64)  GO  TO  39 

0023 

LPSC  (  I  JaBUFF  (  Kl.1  ) 

0024 

101 

FORMAT ( 1 X . 319) 

0029 

39 

CO'.TlNOf 

0026 

IF  ( vJNLC  .GT  .64)JRbC*64 

0028 

94 

CONTINUE 

0029 

NREC*RRtC*l 

0030 

IF  (KPEC.CF.JRFC)  RETUkN 

0032 

JHLpaNL* 

0033 

lF(J0LK.Gr.lOOO)JRL*a.lFLA-lOO<i 

0039 

90 

JRF  ADaIPE  A0«  ( -C*  T ,  BUFF  ,JNI>,CHA|.1 

0036 

IF (JREau.lt. o)  Rt turn 

0038 

KLlaO 

0039 

BLKapLAAl 

0040 

GO  TU70 

0041 

END 

fortran 

IV 

STORAGE  RAP 

name 

OFFSFT 

ATTRIBUTES 

RCC 

000030 

1MTEGFR«2 

ARRAY  (3?) 

BUFF 

00OI30 

LOGICAL*  1 

ARRAY  (91?) 

LREC 

000014 

LOGICAL*! 

PARAPET  t fc 

ARRAY  (64) 

JREC 

000016 

INTEGER*? 

PARANCTFR 

VARIABLE 

KL1 

000020 

InTSGFR*2 

PARA-FTFR 

VARIANLF 

JRtAP 

000022 

integer* a 

PAR A-FT*> 

VARIAPL) 

■  LX 

000024 

INTFGF-*? 

PAR ARE • ER 

VAR]  AnI.F 

CHAN 

000026 

INTEGER*? 

parameter 

VARIANLF 

•CRT 

001136 

integer*? 

VAPIANLl 

COURT 

001140 

1 NTFGER*  2 

VARIAPIE 

CR 

0011 34 

LOGICAL* 1 

VAR  1 AbLF 

1TIRE 

0011  JO 

1 NTEGtR*  2 

VARIABLE 

NRCC 

001137 

INTEGER*? 

VANIARI.F 

MRCC 

001170 

INTEGER*? 

VARIANLF 

I  RFC 

001172 

integer*? 

VAR  I Ap( E 

KREC 

001174 

INTEGER *2 

VARIABLE 

I 

001176 

Integer* 2 

variable 

J8LP 

001700 

Integer*? 

VARIABLE 

IRCADa 

000000 

integer*? 

PROCEOURF 

<7 


FORTH AH  JV 


V01C-03A 


0001 
0002 
0003 
0004 
0005 
0000 
0007 
000  A 
0000 
oon 
0012 
0013 
0014 
0015 
0010 
0017 
0010 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0035 
0037 
0030 
0039 

0040 

0041 

0042 

0044 

0045 

0046 

0047 

0049 

0049 

0051 

0052 

0053 

0054 

0055 

0057 

0050 

0059 


SlIRBOUTlfce.  1MT  (Al  l  ,nLa  .JPMD.LMl  ,-HLK  .CHAN) 
cot-fen  /option/  ion 

l(.TtGEP»2  HEC  (32), HL"  ,  bl  TS  l  3  )  ,  TE  * ,  RfcCS  ,  YEAR  ,  CM*  f 
DATA  TEN  /20/ 

OATA  BITS  /•37,“1740,»7e000/ 

TYPE  980.TEN,KLI,JRFAC  ,f*LA,CHAN 
980  FOPnaTC  1H1T  *.717) 

CALL  RFADSIRFC.TEN.ALl.JPtAU.BLI'  .C«A<0 
IF ( JREAD. LT . 0  )  RETURN 

CALL  Hl«U7ECt<FC(2),HtC(3)  ,ITI»»i  ,  JTIMf ) 

CALL  HI HUTC ( RfcC ( 7 ) >HEC ( 8 ) , JT 1 R t . JT I “E ) 
YeAks<RLC(l).AND.*llS(l))  ♦  7 ? 

H0«HFC(1).AM».PIT5»31 
“0«n0/ 1 024 

lnAY«HECm.A5l>.pnS(2  7 
1  l>A  <x  1 0* Y/32 
HLAsHEC( 4  ) 

HtC5»HEC(5) 

l¥EAR«(PEC(6).AND.RlT5d))  4  72 
l«0«FCC(5).AM'.UlTS(3) 

I-0»1**0/I  024 
A  L>A  YaRtC (61.AA0.blTS(2) 

KOAYSAOAY'32 

LALlaPECdO) 

-►LA*PEC(9) 

IF(PECtl).GF.O)  GO  Tu  513 
TYPE  514. 

PRINT  514. 

514  FOPnAT  <  *  OATA  APPEARS  Tl'  START  IK  BLOCK  7.ER0  •) 
H«LA»1000 
REC5«0 
LAI, la-4 

BL*  *0 

513  CONTINUE 

PRINT  72.YFAP.KO.IOAY ,BLA .REC5.TT1NE 
PRINT  75.IYEAA  .IrtO.M-AT.HPLK.LAM  .JTINF 
72  FonnaTC  STAPT  DATE  *,313,  •  BLA  ',14,'  BYTE*. 

1  14,'  TInF  »,I4) 

75  FOR»ATC*  FINISH  OATF  ',313.  '  BLA  ',14,  '  RYTt 

2  14,'  TINF  ',14) 
jnPT»I0PT.AN0.8 

IF( JOPI.Li.O)  GO  TO  717 
TYPE  780, 

P81N1  780, 

780  A’OP-ATI*  MTER  8I.0CA  ,  A  JTt '  ) 

ACCEPT  765,  bLA,REC5 
765  FOH-AT (214) 

IF(»LA.CT.*bLA )NbLA«F5LA4l«00 
7l 7  CONTINUE 

AL1«512 

CALL  PEA0S(RIC,TFN,A11,JPFAP,A1.A ,Chan) 
aLI»51 2-REC5 

IFCAL1.GE.512)HLA  •  PLA-I 
RHL* ■■8LA ♦ 1 
RfTUMN 
fNU 
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FORTRAN  IV 


STORAGE  MRP 


NAME  OFFSET  ATTRIBUTES 


ncc 

000030 

INTEGER *2 

ARRAY  (32: 

( 

SITS 

000130 

T  nTeGe.H*2 

ARRAY  (3) 

KLI 

000014 

INTEGER*! 

PARAPET  EL 

VARIABLE 

SLK 

000016 

integer* 2 

parameter 

VARIABLE 

JREAD 

000020 

1NTCCER*2 

PARAMETER 

VARIABLE 

LRU 

000022 

lNTrGE»*2 

parameter 

variable 

NBLK 

000024 

INTEGE R*2 

RARA»E'TFR 

VARIABLE 

CHAN 

000026 

Integer*! 

RAFA*f.lKR 

VARIABLE 

TEN 

000136 

1 NIECE  B*2 

variable 

RECS 

000444 

INTEGER*! 

VARIABLE 

TEAR 

000446 

1MEGER*2 

VARIABLE 

REAPS 

000000 

Rt*L*4 

PROCEDURE 

minute 

000000 

INTEGER*! 

PRUCfc PURE 

ITIME 

000450 

InTeGF.®*2 

VARIABLE 

ITTRE 

000452 

INTEGER*! 

VARIABLE 

JTlMt 

000454 

integer*! 

variable 

JTYNE 

000456 

INTEGER*! 

VARIABLE 

NO 

000460 

Integer*! 

VARIABLE 

1DAY 

000462 

integer*! 

variable 

I  year 

0004*4 

integer*! 

variable 

IPO 

O0U466 

1nTFGER*2 

variable 

rday 

000470 

INTEGER*! 

VARIABLE 

JOPT 

000472 

1nTEGER*2 

VARIABLE 

CO“MOJI  BLOCK  /OFTlOM/  LENGTH  000002 
I OPT  000000  INTEGER*  2  VARIABLE 


FORTRAN  IV 


V01C-01A 


0001 

0002 

0003 

0004 

0004 

0006 

0008 

0009 

0010  56 

0011 
0013 
0014 
0016 
0017 


SUBROUTINE  OPFnFK  (CHA  •' ) 

K  t  A  L  *  4  0RLK(2) 

INIEGEP*2  CMAH.CUOM 

DATA  DRLK  /6RDR0TRA,*pO  ()A1/ 

CHAN  a  ICETCO 

IF(CHAfc.LT.O)  S10P  1  CAN  NOT  ALLOC  A 1 1  CHA4EFL,  * 
IFa  IFETCH  (DEL* ) 

TYPF.  56, IF 
FORK AT { 1 X , 1 4 ) 

IF  (1F.CT.0)  STOP  *f  tTCh  ERROR  ’ 

IL  «  LOOKUP  (CHAN  .CtfLK, COUNT) 

IF  (IL.LT.O)  STOP  'IOUKIP  ERROR  * 

RETURN 

end 


FORTRAN 

IV 

STORAGE  NAP 

MAKE 

OFFSET 

ATTP 1  NOTES 

DBLK 

000016 

REAL»4 

ARRAY  (2) 

CHAN 

OOOu  14 

INTFGFH»2 

PARAHETER  variable 

COUNT 

000120 

IMEGtR«2 

VARIABLE 

ICE)  C 

OOUOOO 

INTEGER *2 

PROCEDUPF 

IF 

000122 

INTEGER *2 

VARIABLE 

IFETCH 

000000 

INTEGER* 2 

PROCEDURE 

IL 

000124 

1FTEGER*2 

variable 

LOOKUP 

oooouo 

INTFGER*2 

▼ 

X 

o 

o 

c 

c 

X 

!»■ 

185  Copies 
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